Jose's Read Only Forum 2023

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

Title: IFile.Copy Method
Post by: José Roca on July 14, 2008, 04:21:06 AM


The following example illustrates the use of the Copy method.

JScript


var fso, f;
fso = new ActiveXObject("Scripting.FileSystemObject");
f = fso.CreateTextFile("c:\\testfile.txt", true);
f.WriteLine("This is a test.");
f.Close();
f = fso.GetFile("c:\\testfile.txt");
f.Copy("c:\\windows\\desktop\\test2.txt");


VBScript


Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("This is a test.")
MyFile.Close
Set MyFile = fso.GetFile("c:\testfile.txt")
MyFile.Copy ("c:\windows\desktop\test2.txt")


PowerBASIC


DIM fso AS IFileSystem
DIM MyFile AS IFile
fso = NEWCOM "Scripting.FileSystemObject"
MyFile = fso.CreateTextFile(UCODE$("c:\testfile.txt"), %VARIANT_TRUE)
MyFile.WriteLine(UCODE$("This is a test."))
MyFile.Close
MyFile = fso.GetFile(UCODE$("c:\testfile.txt"))
MyFile.Copy(UCODE$("c:\windows\desktop\test2.txt"))