Option Explicit

Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Public Function WhichFileSystem(ByVal Drive As String) As String
    Dim sVolBuf As String * 255, sSysName As String * 255
    Dim lSerialNum As Long, lSysFlags As Long
    Dim lComponentLength As Long
    Dim lRes As Long

    lRes = GetVolumeInformation(Drive, sVolBuf, 255, lSerialNum, _
           lComponentLength, lSysFlags, sSysName, 255)
           
    If lRes Then
        WhichFileSystem = Left$(sSysName, InStr(sSysName, Chr$(0)) - 1)
    Else
        WhichFileSystem = ""
    End If

End Function