VBS 判斷檔案是否存在－ooieueioo的部落格

//vbs判斷檔案是否存在

Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("D:\test\test.txt") Then
Set objFolder = objFSO.GetFile("D:\test\test.txt")
msgbox("have file")

Else
Wscript.Echo "File does not exist."
End If

參考:https://bbs.et8.net/bbs/showthread.php?t=1036338

//-------------------------------------------------------------------------

剛好需要一個掃描檔案是否存在，並且延遲幾秒開啟的程式

以下為範例紀錄

分為bat及vbs主要是利用vbs呼叫bat

//vbs(Hotkey_DelayOpen.vbs)

'delay 8s
WScript.Sleep 8000

set GuWS=WScript.CreateObject("WScript.Shell")
GuWS.Run "Hotkey_open.bat",vbhide

//bat(Hotkey_open.bat)

:while
if exist "%ProgramFiles%\AP\hotkey\hotkey.exe" goto ExitLoop_x64
if exist "C:\Program Files (x86)\AP\hotkey\hotkey.exe" goto ExitLoop_x86
echo No File
goto while
:ExitLoop_x64

cd "\AP\hotkey\"
start hotkey.exe

:ExitLoop_x86

cd "C:\Program Files (x86)\AP\hotkey\"
start hotkey.exe