Über die API-Funktion GetVolumeInformation
können Sie das Dateisystem eines Laufwerks ermitteln. Die
Hilfsfunktion FileSystemName kapselt den Aufruf und gibt den Namen
des Dateisystems zurück. Als Parameter übergeben Sie einen Pfad,
der mit einem gültigen Laufwerksbuchstaben beginnt.
Private Declare Function GetVolumeInformation Lib "kernel32.dll" _
Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, _
ByVal lpVolumeNameBuffer As String, _
ByVal nVolumeNameSize As Integer, lpVolumeSerialNumber As Long, _
lpMaximumComponentLength As Long, lpFileSystemFlags As Long, _
ByVal lpFileSystemNameBuffer As String, _
ByVal nFileSystemNameSize As Long) As Long
Public Function FileSystemName(Path As String) As String
Dim nFileSystem As String
Dim nLDummy As Long
Dim nIDummy As Integer
Dim nSDummy As String
Dim nRetVal As Long
Dim nDrive As String
nDrive = LCase$(Left$(Path, 1))
If nDrive = "\" Then
Exit Function
Else
nDrive = nDrive & ":\"
End If
nFileSystem = Space$(256)
If GetVolumeInformation(nDrive, nSDummy, nIDummy, nLDummy, _
nLDummy, nLDummy, nFileSystem, Len(nFileSystem)) <> 0 Then
FileSystemName = _
Left$(nFileSystem, InStr(nFileSystem, vbNullChar) - 1)
End If
End Function
|