VB Snippet - FSO Examples

[James Stanich]

' 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

[James Stanich]

'*******************************************************************************
' FIXFOLDER (SUB)
'
' DESCRIPTION:
' SET ANY SENT FOLDERS TO HIDDEN
 '***************************************************
Sub FIXFOLDER(FDR As String)
    
    Dim FSO As New Scripting.FileSystemObject
    
    Dim F As Folder
    
    Set F = FSO.GetFolder(FDR)
    
    F.Attributes = Hidden
    
    Set F = Nothing
    
    Set FSO = Nothing
    
End Sub