Как я могу проверить, существует ли файл?

Я хочу проверить, существует ли файл, и если это так, я хочу его открыть и прочитать 1-ю строку,

Если файл не существует или файл не имеет содержимого, я хочу выйти из строя без предупреждения, не сообщив кому-либо об ошибке.

Ответы

Ответ 1

Начните с этого:

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

Взято из документации.

Ответ 2

существующая папка будет FAIL с FileExists

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

используйте вместо этого или дополнительно:

Function FolderExists(strFolderPath)
' Check if a path exists