使用 fso.GetAbsolutePathName(".") 检查后如何设置正确的语法 if (fso.FileExists(""))

编程问答 2022-05-03

问题描述

我正在努力使用正确的语法来设置路径：

if (fso.FileExists("myfile.txt")) then ....

我用这个：

set fso = WScript.CreateObject("Scripting.FileSystemObject")
Mypath = fso.GetAbsolutePathName(".")
if (fso.FileExists("myfile.txt")) then...

据我所知 fso.GetAbsolutePathName(".") 知道我的脚本启动的路径 测试时，我可以看到正确的路径：

call MsgBox(Mypath)

例如 MsgBox 显示 c:\users\user\desktop 那是脚本启动的地方，也是我创建文件的地方。 我不能直接使用路径，因为它需要是动态的，文件将被创建和替换 如果存在于启动脚本的同一路径。

我希望它足够清楚，并且有人可以回答这个问题！ 我读过很多例子，但没有一个能涵盖这个特殊的需求。 谢谢

解决方法

Dim FSO 'As FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")

If (FSO.FileExists("C:\Foobar.txt") Then
    {statements}
End If

Set FSO = Nothing
file-existsfsovbscriptvbscript