czjt1234 当前在线
上尉
Dim objWsh, objFSO Set objWsh = CreateObject("WScript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") Do If objFSO.DriveExists("E:") Then objWsh.run("d:\a.txt") WScript.Quit End if WScript.Sleep 5000 Loop复制代码
TOP