2011-08-23 20 views
30

मैं यह देखना चाहता हूं कि कोई फ़ाइल मौजूद है और यदि ऐसा होता है, तो मैं इसे खोलना चाहता हूं और पहली पंक्ति,मैं कैसे जांच सकता हूं कि कोई फ़ाइल मौजूद है या नहीं?

यदि फ़ाइल मौजूद नहीं है या फ़ाइल में कोई सामग्री नहीं है तो मैं चाहता हूं किसी को यह बताने के बिना चुपचाप विफल हो कि एक त्रुटि हुई।

+2

क्या आपने कहीं भी 'vbscript फ़ाइल मौजूद' खोज की है? – Fionnuala

+0

@Fionnuala लेकिन यह * Google से पहला परिणाम है: डी;) – gordatron

उत्तर

57

इस के साथ प्रारंभ:

Set fso = CreateObject("Scripting.FileSystemObject") 
If (fso.FileExists(path)) Then 
    msg = path & " exists." 
Else 
    msg = path & " doesn't exist." 
End If 

documentation से लिया।

-3

एक मौजूदा फ़ोल्डर के बजाय या अलावा fileexists

साथ विफल हो जाएगा
Function FileExists(strFileName) 
' Check if a file exists - returns True or False 

उपयोग:

Function FolderExists(strFolderPath) 
' Check if a path exists 
+0

यह उत्तर प्रश्न का उत्तर नहीं देता है। यह स्वरूपण दिशानिर्देशों का भी पालन नहीं करता है। –

+0

उत्तर कोई कार्यशील कोड प्रदान नहीं करता है –

0

जो कोई 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 
संबंधित मुद्दे

 संबंधित मुद्दे