Print Page - IFolder.Copy Method

Title: IFolder.Copy Method
Post by: José Roca on July 14, 2008, 02:05:45 AM

The following code illustrates the use of the Copy method with an IFolder object:


#INCLUDE "windows.inc"
#INCLUDE "scrrun.inc"

DIM fso AS IFileSystem
DIM pFolder AS IFolder

' Create an instance of the FileSystemObject
fso = NEWCOM "Scripting.FileSystemObject"
' Get a reference to the IFolder interface
pFolder = fso.GetFolder(UCODE$("C:\MyFolder"))
' Copy the folder
pFolder.Copy UCODE$("C:\MyNewFolder"), %FALSE
IF OBJRESULT = %S_OK THEN
   MSGBOX "Folder copied"
ELSE
   MSGBOX "Error &H" & HEX$(OBJRESULT) & " copying the folder"
END IF

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, 02:05:45 AM