Public fso As New FileSystemObject
 
Public Function getFileSystem(DriveLetter As String) As String
 
    Dim s As String
    Dim d As Drive
 
    Set d = fso.GetDrive(DriveLetter)
 
    getFileSystem = s
 
End Function