ファイルが存在するかどうかを確認するにはどうすればよいですか？

Question

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

ファイルが存在しない場合、またはファイルにコンテンツが含まれていない場合、エラーが発生したことをだれにも知らせることなく、静かに失敗します。

Answer 1

これから始めましょう：

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

documentation から取得。

Answer 2

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