Abfrage Zip-Vorgang (VB)

Private Sub QuellenStart() ' Datei unzippen Shell "C:\Programme\WinZip\WZUNZIP.EXE -d " & "D:\test.zip" & " " & "D:\" ' Quellen löschen FileOperation Löschen, "D:\test\Ordner1", "", False, True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub QuellenStart() ' Datei unzippen Shell "C:\Programme\WinZip\WZUNZIP.EXE -d " & "D:\test.zip" & " " & "D:\" do while dir("D:\test\Ordner1")="" loop ' Quellen löschen FileOperation Löschen, "D:\test\Ordner1", "", False, True End Sub

Hallo,
ich habe nochmal in meinem Archiv gestöbert.
Versuche es mal hiermit
Modul Modul1

Declare Function OpenProcess Lib "kernel32" _
        (ByVal dwDesiredAccess As Long, _
        ByVal bInheritHandle As Long, _
        ByVal dwProcessId As Long) As Long 
  
Declare Function GetExitCodeProcess Lib "kernel32" _
        (ByVal hProcess As Long, _
        lpExitCode As Long) As Long 
  
Public Const PROCESS_QUERY_INFORMATION = &H400 
Public Const STILL_ACTIVE = &H103 
  
 
 
Public Sub ShellAndWait(ByVal PathName As String, Optional WindowState) 
    Dim hProg As Long 
    Dim hProcess As Long, ExitCode As Long 
    'fill in the missing parameter and execute the program 
    If IsMissing(WindowState) Then WindowState = 1 
    hProg = Shell(PathName, WindowState) 
    'hProg is a "process ID under Win32. To get the process handle: 
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, hProg) 
    Do 
        'populate Exitcode variable 
        GetExitCodeProcess hProcess, ExitCode 
        DoEvents 
    Loop While ExitCode = STILL_ACTIVE 
End Sub 
 
 
Sub UnZip_ZipFile_1() 
    Dim PathWinZip As String, FileNameZip As String 
    Dim ShellStr As String, FolderName As String 
  
    PathWinZip = "C:\program files\winzip\" 
    'This will check if this is the path where WinZip is installed. 
    If Dir(PathWinZip & "winzip32.exe") = "" Then 
        MsgBox "Please find your copy of winzip32.exe and try again" 
        Exit Sub 
    End If 
  
    FileNameZip = "D:\test.zip" 
    FolderName = "D:\" 
  
    'Unzip the zip file in the folder FolderName 
    ShellStr = PathWinZip & "Winzip32 -min -e" _
             & " " & Chr(34) & FileNameZip & Chr(34) _
             & " " & Chr(34) & FolderName & Chr(34) 
    ShellAndWait ShellStr, vbHide 
     
     
    FileOperation Löschen, "D:\test\Ordner1", "", False, True 
End Sub

Gruß Tino

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread