broly

Dim fso, wsh, ProcEnv, msg, filepath
Set fso = CreateObject("Scripting.FileSystemObject")
Set wsh = WScript.CreateObject("WScript.Shell")
Set ProcEnv = wsh.Environment("PROCESS")
 
filepath = ProcEnv("SYSTEMROOT") & "\temp\your_file"
 
If (fso.FileExists(filepath)) Then
  msg = filepath & " 存在。"
Else
  msg = filepath & " 不存在。"
End If
msgbox msgCOPY