Question

我想将文本文件的完整路径传递给其中一个函数。我将我的脚本和文本文件放在同一位置通过使用以下命令，我找到了我的脚本所在的文件夹路径

p = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)

p来自C:\test

我的文件名是xyz.txt

我想将该参数作为C:\test\xyz.txt

传递给函数

如何组合路径和文件名

我试过下面的代码

path =  p & "xyz.txt"

任何人都可以帮助我如何加入路径和文件名。

Answer 1

你可以使用字符串连接来构建路径。但是，正确的方法是使用FileSystemObject的BuildPath() method，因为在所有情况下都可以使用反斜杠做正确的事情。

Set FSO = CreateObject("Scripting.FileSystemObject")

scriptPath = FSO.GetParentFolderName(WScript.ScriptFullName)
textFilePath = FSO.BuildPath(scriptPath, "xyz.txt")

MsgBox textFilePath

Answer 2

试试这段代码：

Option Explicit
Msgbox GetFilePath("xyz.txt")
'******************************************************
Function GetFilePath(FileName)
Dim fso,scriptPath
Set fso = CreateObject("Scripting.FileSystemObject")
scriptPath = FSO.GetParentFolderName(WScript.ScriptFullName)
GetFilePath = FSO.BuildPath(scriptPath,FileName)
End Function
'******************************************************

如何编写一个函数来组合文件夹路径和文件名？

2 个答案: