Ipak se okrece :)
Elem, malo cemo samo da prepravimo onaj tvoj kod:
Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" _
(ByVal lpRootPathName As String, _
ByVal lpVolumeNameBuffer As String, _
ByVal nVolumeNameSize As Int32, _
ByRef lpVolumeSerialNumber As System.UInt32, _
ByRef lpMaximumComponentLength As Int32, _
ByRef lpFileSystemFlags As Int32, _
ByVal lpFileSystemNameBuffer As String, _
ByVal nFileSystemNameSize As Int32) As Int32
odnosno,
Dim drvserial As System.UInt32
Dim mydrvlabel As String = Space$(200)
Dim myfilesys As String=space$(200)
Dim i As Int32
Dim j As Int32
Dim x As Int32
Dim number As Int32
x = GetVolumeInformation("C:\", mydrvlabel, 200, drvserial, i, j, myfilesys, 200)
MsgBox(drvserial.ToString & " - " & mydrvlabel)
MsgBox(myfilesys)
HTH
[
Ovu poruku je menjao degojs dana 10.08.2002 u 03:01 AM GMT]
Commercial-Free !!!