जो कोई VBS में मौजूद किसी विशिष्ट फ़ाइल को देखने के लिए एक तरह से देख रहा है के लिए:
Function bIsFileDownloaded(strPath, timeout)
Dim FSO, fileIsDownloaded
set FSO = CreateObject("Scripting.FileSystemObject")
fileIsDownloaded = false
limit = DateAdd("s", timeout, Now)
Do While Now < limit
If FSO.FileExists(strPath) Then : fileIsDownloaded = True : Exit Do : End If
WScript.Sleep 1000
Loop
Set FSO = Nothing
bIsFileDownloaded = fileIsDownloaded
End Function
उपयोग:
FileName = "C:\test.txt"
fileIsDownloaded = bIsFileDownloaded(FileName, 5) ' keep watching for 5 seconds
If fileIsDownloaded Then
WScript.Echo Now & " File is Downloaded: " & FileName
Else
WScript.Echo Now & " Timeout, file not found: " & FileName
End If
स्रोत
2018-02-14 14:02:33
क्या आपने कहीं भी 'vbscript फ़ाइल मौजूद' खोज की है? – Fionnuala
@Fionnuala लेकिन यह * Google से पहला परिणाम है: डी;) – gordatron