Try (this script was not write by me):
Declare Integer GetVolumeInformation in WIN32API ;
String @lpRootPathName, ;
String @lpVolumeNameBuffer, ;
Integer nVolumeNameSize, ;
Integer @lpVolumeSerialNumber, ;
Integer @lpMaximumComponentLength, ;
Integer @lpFileSystemFlags, ;
String @lpFileSystemNameBuffer, ;
Integer nFileSystemNameSize
cString = ""
cRoot = "C:\"
cVolumeName = Space(256)
nVolumeNameSize = 256
nVolumeSerial = 0
nMaxCompLength = 256
nFileSysFlag = 0
cFileSysNameBuf = Space(256)
nFileSysNameSize= 256
nReturn = 0
nReturn = GetVolumeInformation(@cRoot, @cVolumeName, nVolumeNameSize, ;
@nVolumeSerial, @nMaxCompLength, ;
@nFileSysFlag, @cFileSysNameBuf, ;
nFileSysNameSize)
If nReturn >= 0
If nVolumeSerial < 0
nVolumeSerial = 4294967296 + nVolumeSerial && 2^32 = 4294967296
EndIf
cString = "Drive name: " + AllTrim(cRoot) + Chr(13) + ;
"Vol name:" + ;
Left(AllTrim(cVolumeName), Len(AllTrim(cVolumeName)) -1) + Chr(13) +;
"Max #/chars in vol name: " + ;
AllTrim(Str(nVolumeNameSize)) + Chr(13) + ;
"Vol Serial #: " + AllTrim(Str(nVolumeSerial)) + Chr(13) + ;
"Max #/chars in dir/file names: " + ;
AllTrim(Str(nMaxCompLength)) + Chr(13) + ;
"File Sys Flags: " + AllTrim(Str(nFileSysFlag)) + Chr(13) + ;
"File Sys type: " + ;
Left(AllTrim(cFileSysNameBuf),Len(AllTrim(cFileSysNameBuf))-1)+ ;
Chr(13) + ;
"File Sys Name Size: " + AllTrim(Str(nFileSysNameSize))
EndIf
MessageBox(cString, 64, "Information")
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement