IFile.Copy Method

[José Roca]

The following example illustrates the use of the Copy method.

JScript

Code Select Expand


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

Code Select Expand


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

Code Select Expand


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"))