You may want to use the FolderExists function before any
others to prevent errors:
Object References | 527
Scripting and
Automation
Sub FolderCopy(Source, Destination)
Set FileObject = CreateObject("Scripting.FileSystemObject")
FileObject.CopyFolder Source, Destination
End Sub
Function FolderCreate(Foldername)
Set FileObject = CreateObject("Scripting.FileSystemObject")
Set Result = FileObject.CreateFolder(FolderName)
If Result.Path = "" Then
FolderCreate = False 'failure
Else
FolderCreate = True 'success
End If
End Function
Sub FolderDelete(Foldername)
Set FileObject = CreateObject("Scripting.FileSystemObject")
FileObject.DeleteFolder(Foldername)
End Sub
Function FolderExists(Foldername)
Set FileObject = CreateObject("Scripting.FileSystemObject")
FolderExists = FileObject.FolderExists(Foldername)
End Function
Sub FolderMove(Source, Destination)
Set FileObject = CreateObject("Scripting.FileSystemObject")
FileObject.MoveFolder Source, Destination
End Sub
Function FolderSize(Foldername)
Set FileObject = CreateObject("Scripting.FileSystemObject")
Set FolderHandle = FileObject.GetFolder(Foldername)
FolderSize = FolderHandle.Size
End Function
Function FolderParent(Foldername)
Set FileObject = CreateObject("Scripting.FileSystemObject")
FolderParent = FileObject.GetParentFolderName(Foldername)
End Function
These next seven subroutines and functions are used to manipulate files,
and are similar to the folder counterparts listed above.
Pages:
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734