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:25:00 AM

Title: IFileSystem.CopyFile Method
Post by: José Roca on July 14, 2008, 03:25:00 AM


You can use:

JScript


var fso;
fso = new ActiveXObject("Scripting.FileSystemObject");
fso.CopyFile ("c:\\mydocuments\\letters\\*.doc", "c:\\tempfolder\\")


VBScript


Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile "c:\mydocuments\letters\*.doc", "c:\tempfolder\"


PowerBASIC


LOCAL fso AS IFileSystem
fso = NEWCOM ("Scripting.FileSystemObject")
fso.CopyFile UCODE$("c:\mydocuments\letters\*.doc"), UCODE$("c:\tempfolder\"), %VARIANT_TRUE


But you cannot use:

JScript


var fso;
fso = new ActiveXObject("Scripting.FileSystemObject");
fso.CopyFile ("c:\\mydocuments\\*\\R1???97.xls", "c:\\tempfolder")


VBScript


Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
FileSystemObject.CopyFile "c:\mydocuments\*\R1???97.xls", "c:\tempfolder"


PowerBASIC


LOCAL fso AS IFileSystem
fso = NEWCOM ("Scripting.FileSystemObject")
fso.CopyFile UCODE$("c:\mydocuments\*\R1???97.xls"), UCODE$("c:\tempfolder\"), %VARIANT_TRUE