Question

VB编程_判断某个文件是否关闭！

Shell "x.exe" '如何等待x.exe这个文件关闭了后再继续执行下面的代码？

Answer 1

检查这个程序是否结束运行，如果结束再继续就可以了下面是示例代码
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const PROCESS_QUERY_INFORMATION = &H400

Private Sub Command1_Click()
Dim RetVal As Long
RetVal = Shell("x.exe")
Do While IsRunning(RetVal)
DoEvents
Loop
MsgBox "程序已关闭"
End Sub

Private Function IsRunning(ByVal ProgramID) As Boolean
Dim hProgram As Long
hProgram = OpenProcess(PROCESS_QUERY_INFORMATION, False, ProgramID)
If hProgram <> 0 Then
IsRunning = True
Else
IsRunning = False
End If
CloseHandle hProgram
End Function

Answer 2

那就不能用Shell