Option Explicit
 
Public oFSO As FileSystemObject
 
Public Function ExistsDrive(sDrive As String) As Boolean
On Error GoTo Err_ExistsDrive
    ExistsDrive = oFSO.DriveExists(sDrive)
Exit Function
Err_ExistsDrive:
    ExistsDrive = False
End Function
 
Public Function ExistsFolder(sPath As String) As Boolean
On Error GoTo Err_ExistsFolder
    ExistsFolder = oFSO.FolderExists(sPath)
Exit Function
Err_ExistsFolder:
    ExistsFolder = False
End Function
 
Public Function ExistsFile(sPath As String) As Boolean
On Error GoTo Err_ExistsFile
    ExistsFile = oFSO.FileExists(sPath)
Exit Function
Err_ExistsFile:
    ExistsFile = False
End Function
 
Public Function CreateFolder(sPath As String) As Boolean
On Error GoTo Err_CreateFolder
    If FSOModule.ExistsFolder(sPath) = False Then
        oFSO.CreateFolder sPath
        If FSOModule.ExistsFolder(sPath) = True Then
            CreateFolder = True
        Else
            CreateFolder = False
        End If
    Else
        CreateFolder = False
    End If
Exit Function
Err_CreateFolder:
    CreateFolder = False
End Function
 
Public Function CreateFile(sPath As String, bOverride As Boolean) As Boolean
On Error GoTo Err_CreateFile
    If bOverride <> True Then
        bOverride = False
    End If
    oFSO.CreateTextFile sPath, bOverride
    If FSOModule.ExistsFile(sPath) = True Then
        CreateFile = True
    Else
        CreateFile = False
    End If
Exit Function
Err_CreateFile:
    CreateFile = False
End Function
 
Public Function DeleteFolder(sPath As String) As Boolean
On Error GoTo Err_DeleteFolder
    If FSOModule.ExistsFolder(sPath) = True Then
        oFSO.DeleteFolder sPath
        If FSOModule.ExistsFolder(sPath) = False Then
            DeleteFolder = True
        Else
            DeleteFolder = False
        End If
    Else
        DeleteFolder = False
    End If
Exit Function
Err_DeleteFolder:
    DeleteFolder = False
End Function
 
Public Function DeleteFile(sPath As String) As Boolean
On Error GoTo Err_DeleteFile
    If FSOModule.ExistsFile(sPath) = True Then
        oFSO.DeleteFile sPath
        If FSOModule.ExistsFile(sPath) = False Then
            DeleteFile = True
        Else
            DeleteFile = False
        End If
    Else
        DeleteFile = False
    End If
Exit Function
Err_DeleteFile:
    DeleteFile = False
End Function
 
Public Function WriteFile(sPath As String, sString As String) As Boolean
On Error GoTo Err_WriteFile
    Dim oStream As TextStream
    Set oStream = oFSO.CreateTextFile(sPath, True)
    oStream.Write sString
    oStream.Close
    If FSOModule.ReadFile(sPath) = sString Then
        WriteFile = True
    Else
        WriteFile = False
    End If
Exit Function
Err_WriteFile:
    WriteFile = False
End Function
 
Public Function ReadFile(sPath As String) As String
On Error GoTo Err_ReadFile
    If FSOModule.ExistsFile(sPath) = True Then
        Dim oStream As TextStream
        Dim sText As String
        Set oStream = oFSO.OpenTextFile(sPath, ForReading)
        sText = oStream.ReadAll
        oStream.Close
        ReadFile = sText
    Else
        ReadFile = vbNullString
    End If
Exit Function
Err_ReadFile:
    ReadFile = vbNullString
End Function