Kak raspoznat stoit li na C: ili D: format NTFS ???

Dim Nm As String, Ser As Long, C As Long, Flags As Long, FSys As String, ret as Long
 
Nm = Space$(255): FSys = Space$(255)
ret = GetVolumeInformation('C: ', Nm, 255, Ser, C, Flags, FSys, 255)
If ret <> 0 Then MsgBox 'Файловая система ' & Trim$(FSys)

Public 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

  Set fs = CreateObject('Scripting.FileSystemObject')
  
  Set d = fs.GetDrive('C:') ' ili D: ili E:
  If d.FileSystem <> 'NTFS' Then
    MsgBox 'No 'NTFS'!'
    End
  End If