08/12/02 00:08:28 UnhUIZAX0
strDrive = "Z:"
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If Err.Number = 0 Then
nFlag = False
For nCount = 1 To 180 ' 180秒まで待ってみる
nFlag = objFSO.DriveExists(strDrive)
If nFlag = False Then
WScript.Sleep(1000) ' １秒待ってみる
End If
Next