How to write a function to combine folder path and file name?

Question

I would like to pass the full path of a text file to one of the function. i am placing the my script, and text file at same location by using the below command i found the folder path where my script is

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

p came as C:\test

my file name is xyz.txt

i want to pass the the argument to the function as C:\test\xyz.txt

how can i combine path and file name

i tried below code

path =  p & "xyz.txt"

can any one help me how can join the path and file name.

Answer 1

You can use string concatenation to build a path. The correct way to do it, however, is to use the FileSystemObject's BuildPath() method, because this will do the right thing with the backslashes under all circumstances.

Set FSO = CreateObject("Scripting.FileSystemObject")

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

MsgBox textFilePath

Answer 2

Try like this code :

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