vbscript - ¿Cómo puedo comprobar si existe un archivo?

wsh

Question

Quiero verificar si existe un archivo y, si existe, quiero abrirlo y leer la primera línea.

Si el archivo no existe o si el archivo no tiene contenido, quiero fallar en silencio sin avisar a nadie que ocurrió un error.

Answer 1

Comience con esto:

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

Tomado de la documentation .

Answer 2

Para cualquiera que busque una manera de ver un archivo específico para existir en 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

Uso:

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

Answer 3

una carpeta existente fallará con FileExists

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

utilizar en su lugar o además:

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