VB调用winrar压缩文件

[coco_hong]

vb调用winrar压缩文件时,怎样判断压缩已经完成呢???急,请各位多多帮忙..

[Fanks]

Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long


Sub ShellWait(sCommandLine As String) '等到外部程序执行完成
Dim hShell As Long, hProc As Long, lExit As Long
hShell = Shell(sCommandLine, vbHide)
hProc = OpenProcess(&H400, False, hShell)
Do
GetExitCodeProcess hProc, lExit
DoEvents
Loop While lExit = &H103
End Sub

用这个函数调用就可以了

[daisy8675]

http://search.csdn.net/Expert/topic/880/880899.xml?temp=.4475672

[coco_hong]

谢谢各位,现在真的可以了,非常感谢.