Страницы: 1
RSS
Удалить файл из архива
 
Здравствуйте Планетяне!
Подскажите пожалуйста, как удалить файл из архива?

У меня видимо сломался поиск, но я очень старался и вот, что вышло:
Первый вариант сразу выдает ошибку.
Во втором случае (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
Изменено: evgeniygeo - 17.02.2021 13:29:08
 
Длинный это путь...
Код
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
Владимир
 
sokol92,
супер  :)  Это то, что нужно! Большое спасибо!
 
Успехов!
Владимир
Страницы: 1
Наверх