PowerBasic Museum 2020-A

Legacy Software (PBWIN 9.0+/PBCC 5.0+) => Windows Script Runtime => Source Code => Scripting => FileSystemObject => Topic started by: José Roca on July 14, 2008, 03:26:43 AM

Title: IFileSystem.BuildPath Method
Post by: José Roca on July 14, 2008, 03:26:43 AM


The following example illustrates use of the BuildPath method.

JScript


function GetBuildPath(path)
{
   var fso, newpath;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   newpath = fso.BuildPath(path, "Sub Folder");
   return(newpath);
}


VBScript


Function GetBuildPath(path)
   Dim fso, newpath
   Set fso = CreateObject("Scripting.FileSystemObject")
   newpath = fso.BuildPath(path, "Sub Folder")
   GetBuildPath = newpath
End Function


PowerBASIC


FUNCTION GetBuildPath (BYVAL strPath AS STRING) AS STRING

   LOCAL fso AS IFileSystem
   LOCAL bstrNewPath AS STRING

   fso = NEWCOM "Scripting.FileSystemObject"
   bstrNewPath = fso.BuildPath(UCODE$(strPath), UCODE$("Sub Folder"))
   FUNCTION = ACODE$(bstrNewPath)

END FUNCTION