MoveFolder Method

 

Description

 

Moves one or more folders from one location to another.

 

PowerBASIC Syntax

 

METHOD MoveFolder ( _

BYVAL bstrSource AS STRING, _

BYVAL bstrDestination AS STRING _

)

 

Arguments

 

bstrSource

BSTR. The path to the folder or folders to be moved. The bstrSource argument string can contain wildcard characters in the last path component only.

bstrDestination

BSTR. The path where the folder or folders are to be moved. The bstrDestination argument can't contain wildcard characters.

 

Remarks

 

If bstrSource contains wildcards or bstrDestination ends with a path separator (\), it is assumed that bstrDestination specifies an existing folder in which to move the matching files. Otherwise, destination is assumed to be the name of a destination folder to create. In either case, three things can happen when an individual file is moved:

 

* If destination does not exist, the folder gets moved. This is the usual case.

* If destination is an existing file, an error occurs.

* If destination is a directory, an error occurs.

 

An error also occurs if a wildcard character that is used in source doesn't match any files. The MoveFolder method stops on the first error it encounters. No attempt is made to roll back any changes made before the error occurs.

 

Note This method allows moving folders between volumes only if supported by the operating system.

 

Example [PowerBASIC]

 

#INCLUDE "windows.inc"

#INCLUDE "scrrun.inc"

 

DIM fso AS IFileSystem

 

' Create an instance of the FileSystemObject

fso = NEWCOM "Scripting.FileSystemObject"

' Move a folder

fso.MoveFolder UCODE$("C:\MyFolder"), UCODE$("C:\MyNewFolder")

IF OBJRESULT = %S_OK THEN

  MSGBOX "Folder moved"

ELSE

  MSGBOX "Error &H" & HEX$(OBJRESULT) & " moving the folder"

END IF

 

Valid XHTML 1.0 Transitional