Здравствуйте Планетяне! Подскажите пожалуйста, как удалить файл из архива?
У меня видимо сломался поиск, но я очень старался и вот, что вышло: Первый вариант сразу выдает ошибку. Во втором случае (MoveHere), выходит окно (которое очень напрягает и лучше бы не выходило) о точности желания переместить файл в корзину, но после нажатия "да" ничего не происходит
Код
Sub killmer1()
Dim sZIPPath$, sFileName$
sZIPPath = ThisWorkbook.Path & "\MyEmails.zip"
sFileName = "000.msg"
Kill sZIPPath & "\" & sFileName
End Sub
Код
Sub killmer2()
Dim sZIPPath$, sFileName$
sZIPPath = ThisWorkbook.Path & "\MyEmails.zip"
sFileName = "000.msg"
CreateObject("Shell.Application").Namespace(10).MoveHere (sZIPPath & "\" & sFileName)
End Sub
Option Explicit
Function DelFromArh(ByVal arh As String, ByVal file As String)
Dim fso As Object, oFolder As Object, tempPath As String
Set fso = CreateObject("Scripting.FileSystemObject")
tempPath = Environ("Temp") & "\" & fso.GetTempName
fso.CreateFolder tempPath
With CreateObject("Shell.Application")
Set oFolder = .Namespace(tempPath & "\")
oFolder.MoveHere .Namespace(arh & "\").ParseName(file)
oFolder.Items.Filter 64, "*.*"
Set oFolder = Nothing
End With
fso.DeleteFolder tempPath
Set fso = Nothing
End Function
Sub Test2()
DelFromArh "C:\Temp\Temp.zip", "1.xls"
End Sub