VB Snippet - FSO Examples
VB Code:
' CHECKS FOR THE EXISTANCE OF A FILE
Function FILEEXISTS(ByVal lsFilename As String) As Boolean
On Error Resume Next
Dim FSO As New Scripting.FileSystemObject
FILEEXISTS = FSO.FILEEXISTS(lsFilename)
Set FSO = Nothing
End Function
' CHECKS FOR THE EXISTANCE OF A FOLDER
Function FOLDEREXISTS(ByVal lsFilename As String) As Boolean
On Error Resume Next
Dim FSO As New Scripting.FileSystemObject
FOLDEREXISTS = FSO.FOLDEREXISTS(lsFilename)
Set FSO = Nothing
End Function
' COPIES FILES
Function COPYFILE(ByVal lsSource As String, ByVal lsDestination As String, _
Optional ByVal lbOverWriteFiles As Boolean) As Boolean
On Error GoTo CopyFile_EH
Dim FSO As New Scripting.FileSystemObject
Dim lbOverwrite As Boolean
If FSO.FILEEXISTS(lsSource) Then
If IsMissing(lbOverWriteFiles) Then
lbOverwrite = False
Else
lbOverwrite = lbOverWriteFiles
End If
FSO.COPYFILE lsSource, lsDestination
COPYFILE = True
Else
COPYFILE = False
End If
CopyFile_Exit:
Set FSO = Nothing
Exit Function
CopyFile_EH:
COPYFILE = False
Resume CopyFile_Exit
End Function
