VB Snippet - FSO Examples

[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