1

我正在尝试将插入到将分析文件夹内容的文件夹中的 Windows shell 文件。

现在我想知道如何检测当前路径?即使用FileSystemObject 放置vbs 文件的位置?

设置 objFSO = CreateObject("Scripting.FileSystemObject")

4

3 回答 3

3
Set objFS = CreateObject("Scripting.FileSystemObject")
WScript.Echo objFS.GetParentFolderName(WScript.ScriptFullName)
于 2010-02-22T10:38:02.313 回答
2

你可以从WScript.ScriptFullName. 只需从末尾删除文件名(最后一个反斜杠之后的位)。我通常将 JScript 用于脚本,但 IIRC VBScript 有一个InStrRev功能可以帮助您找到最后一个反斜杠。或者:为路径创建一个File对象,WScript.ScriptFullName然后使用它的ParentFolder属性。类似(未经测试):

Dim objFSO
Dim objFile
Dim objFolder

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(WScript.ScriptFullName)
Set objFolder = objFile.ParentFolder
于 2010-02-22T10:30:05.563 回答
1

要仅获取完整路径而不使用我用来生成文件路径的扩展Replace(WScript.ScriptFullName, WScript.ScriptName, "")

于 2010-02-22T10:33:38.220 回答