Как написать функцию для объединения пути папки и имени файла?

Question

Я хотел бы передать полный путь текстового файла к одной из функций. я поместить мой сценарий, и текстовый файл в одном месте с помощью следующей команды я нашел путь к папке, где мой скрипт

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

p пришел как C:\test

мое имя файла xyz.txt

я хочу передать аргумент в функцию в качестве C:\test\xyz.txt

как я могу объединить путь и имя файла

я попытался ниже код

path = p & "xyz.txt" 

может ли один помочь мне, как может присоединиться путь и имя файла.

Answer 1

You can использовать конкатенацию строк для создания пути. Однако правильный способ сделать это - использовать файл BuildPath() method FileSystemObject, потому что при любых обстоятельствах это будет делать правильно с обратной косой чертой.

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 
'******************************************************