Как я могу проверить, существует ли файл? Я хочу проверить, существует ли файл, и если это так, я хочу его открыть и прочитать 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
Ответ 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