Option Explicit
Private Declare Function GetVolumeInformation _
Lib "kernel32" Alias "GetVolumeInformationA" _
(ByVal ıLRootPathName As String, _
ByVal lpVolumeNameBuffer As String, _
ByVal nValumeNameSize As Long, _
lpValumeSerialNumber As Long, _
lpmaximumComponentlength As Long, _
lpFilesystemflags As Long, _
ByVal lpFileSystemFileBuffer As String, _
ByVal nFileSystemFileSize As Long) As Long




Private Sub Drive1_Change()
Dim r As Long
Dim pos As Long
Dim VolumeSN As Long
Dim MaxFNLen As Long
Dim FsName As String
Dim maxuz As Long
Dim flags As Long
Dim VolumeName As String
Dim sunucu As String
 
ForeColor = &HFF&
FontSize = 10

 
VolumeName = Space(14)
FsName = Space(32)
sunucu = Left(Drive1.Drive, 2) & ""
r = GetVolumeInformation(sunucu, VolumeName, Len(VolumeName), VolumeSN&, maxuz, flags, FsName, Len(FsName))

If r = 0 Then Exit Sub
pos = InStr(VolumeName, Chr(0))
If pos Then VolumeName = Left(VolumeName, pos - 1)

Print "Volume Adı .............: ", VolumeName
Print "Seri No ................: ", Hex(VolumeSN)
Print "Max Dosya Adı uzunluğu .: ", maxuz

pos = InStr(FsName, Chr(0))
If pos Then FsName = Left(FsName, pos - 1)
Print "Sistem .................: ", FsName

If flags And &H8000 Then Print "Sıkıştırma :", , "DblSpace veya DrvSpace"

If flags And &H10 Then Print "Sıkıştırma :", , "Dosya Tabanlı"

Print "Büyük Küçük Harf Ayırımı :",

If flags And 1 Then Print "Var" Else Print "Yok"
Print "____________________________________________"




End Sub

Private Sub Form_Load()
Show
Drive1_Change

End Sub