檢查 filefolderdrive 是否存在
使用的方法:
.DriveExists(strDrive) returns (True/False)
.FileExists(strFile) returns (True/False)
.FolderExists(strFolder) returns (True/False)
以下程式碼使用檔案系統物件的FileExists方法檢查檔案是否存在。為了檢查資料夾或驅動器的存在,可以分別使用FolderExists或DriveExists方法。
碼:
Dim strPath, objFso
strPath = "C:\Users\GS\Desktop\tasks.txt" 'Enter the absolute path of the File/Folder/Drive
Set objFso = CreateObject("Scripting.FileSystemObject")
'Checking for the File's existence
If objFso.FileExists(strPath) then 'returns True if the file exists, else False
Msgbox "File Exists!"
Else
Msgbox "File does not Exist!"
End If
Set objFso = Nothing