我正在尝试将Windows shell文件插入到将分析文件夹内容的文件夹中 .
现在我想知道如何检测当前路径是哪条?即使用FileSystemObject放置vbs文件的位置?
设置objFSO = CreateObject(“Scripting.FileSystemObject”)
Set objFS = CreateObject("Scripting.FileSystemObject") WScript.Echo objFS.GetParentFolderName(WScript.ScriptFullName)
你可以从WScript.ScriptFullName获得 . 只需从末尾删除文件名(最后一个反斜杠后的位) . 我通常使用JScript作为脚本,但是IIRC VBScript有一个 InStrRev 函数可以帮助你找到最后一个反斜杠 . 或者:为 WScript.ScriptFullName 路径创建 File 对象,然后使用其ParentFolder属性 . 像(未经测试)的东西:
InStrRev
WScript.ScriptFullName
File
Dim objFSO Dim objFile Dim objFolder Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile(WScript.ScriptFullName) Set objFolder = objFile.ParentFolder
要仅在没有扩展名的情况下获取完整路径,我使用 Replace(WScript.ScriptFullName, WScript.ScriptName, "") 来生成文件路径
Replace(WScript.ScriptFullName, WScript.ScriptName, "")
3 回答
你可以从WScript.ScriptFullName获得 . 只需从末尾删除文件名(最后一个反斜杠后的位) . 我通常使用JScript作为脚本,但是IIRC VBScript有一个
InStrRev
函数可以帮助你找到最后一个反斜杠 . 或者:为WScript.ScriptFullName
路径创建File
对象,然后使用其ParentFolder属性 . 像(未经测试)的东西:要仅在没有扩展名的情况下获取完整路径,我使用
Replace(WScript.ScriptFullName, WScript.ScriptName, "")
来生成文件路径