The following code illustrates the use of the
Name property:
#INCLUDE "windows.inc"
#INCLUDE "scrrun.inc"
DIM fso AS IFileSystem
DIM pFile AS IFile
' Create an instance of the FileSystemObject
fso = NEWCOM "Scripting.FileSystemObject"
' Get a reference to the IFile interface
pFile = fso.GetFile(UCODE$("C:\MyPath\MyFile.txt"))
' Move the file to another location
pFile.Move UCODE$("C:\MyNewPath\MyFile.txt")
IF OBJRESULT = %S_OK THEN
MSGBOX "File moved"
ELSE
MSGBOX "Error &H" & HEX$(OBJRESULT) & " moving the file"
END IF