comment puis-je vérifier si un fichier existe?

Question

Je veux vérifier si un fichier existe et si c'est le cas, je veux l'ouvrir et lire la 1ère ligne,

Si le fichier n'existe pas ou s'il ne contient aucun contenu, je souhaite échouer en silence sans que personne ne sache qu'une erreur s'est produite.

Answer 1

Commencez par ceci:

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

Tiré de la documentation .

Answer 2

Pour tous ceux qui cherchent un moyen de voir un fichier spécifique exister dans 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

Usage:

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