ファイルが存在するかどうかを確認する方法はありますか？

Question

ファイルが存在するかどうか確認したい場合は、それを開いて1行目を読みたい

ファイルが存在しない場合、またはファイルに内容がない場合はエラーが発生したことを誰にも知らせずに黙って失敗します。これで

Answer 1

スタート：documentationから撮影

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

。

Answer 2

既存のフォルダは、代わりに又はそれに加えて

Function FileExists(strFileName) 
' Check if a file exists - returns True or False 

FILEEXISTS

での使用に失敗します：VBS内に存在する特定のファイルを監視する方法を探している人のために

Function FolderExists(strFolderPath) 
' Check if a path exists 

Answer 3

：

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