1.2 使用Dir()判断文件是否存在If Dir("C:\stamp.bat") = "" Then Debug.Print "文件未找到。" End If 注意: VBA中两种判断文件是否存在的方法,使用 FileExists 和Dir,期中 FileExists返回逻辑值,而 Dir 返回字符串,因此 Dir 不能参与逻辑值的比较。
#1. 文件是否存在(File exists):1.1 使用 FileExists 判断是否存在Sub FileExists() Dim fso as Scripting.FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists("D:\test.txt") = True Then MsgBox "The file is exists." Else MsgBox "The file isn't exists." End If...
FileSystem ConstForReadingAsLong=1ConstForWritingAsLong=2ConstForAppendingAsLong=8ConstTristateUseDefaultAsLong=-2ConstTristateTrueAsLong=-1ConstTristateFalseAsLong=0PublicFunctionFileExists(ByValpathAsString)AsBoolean'ファイルの存在確認DimFSOAsObjectSetFSO=CreateObject("Scripting.FileSystemObject")FileExists...
ファイルの存在を確認してから削除する場合の VBA コードは次のとおりです。Sub DeleteFileAfterChecking() Dim FileSysObj Dim FileToDelete As String Set FileSysObj = CreateObject("Scripting.FileSystemObject") FileToDelete = "D:\Test\testFile.xlsx" If FileSysObj.FileExists(FileToDelete) Then ...
次に、Dir関数を使ってファイル名を変数strFileExistsに代入しています。フォルダをチェックするためには、関数の第2引数のvbDirecotryを追加する必要があります。もし、そのフォルダがディレクトリに存在すれば、その名前が変数strFolderExistsに代入されます。存在しない場合は、strFolderExistsは空白の...
1.2 使用Dir()判断文件是否存在If Dir("C:\stamp.bat") = "" Then Debug.Print "文件未找到。" End If 注意: VBA中两种判断文件是否存在的方法,使用 FileExists 和Dir,期中 FileExists返回逻辑值,而 Dir 返回字符串,因此 Dir 不能参与逻辑值的比较。
6.1 判断文件,文件夹等是否存在文件是否存在(File exists): Sub FileExists() Dim fso as Scripting.FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists("D:\test.txt") = True Then MsgBox "The file is exists." Else MsgBox "The file isn't exists." End If End ...