Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Hard disk serial number
Message
 
À
24/09/1999 21:23:56
Information générale
Forum:
Visual FoxPro
Catégorie:
Fonctions Windows API
Divers
Thread ID:
00268851
Message ID:
00271446
Vues:
18
Hi David,
I send You this message again because I don't know if You receive it (I sant it to Evan Dely).

I use the following function:


FUNCTION GetVolumNum

LPARAMETERS driv_lett && The drive
DECLARE GetVolumeInformation IN WIN32API AS GetVolume;
STRING @DriveLett, STRING @VolumName, INTEGER VolumSize,;
INTEGER @VolumNumb, INTEGER @FileLen, INTEGER @SysFlags,;
STRING @FileType, INTEGER FileSystemLen

LOCAL m_drv, m_getdrv, nvolum, xxvolum, asd

DECLARE mm_plus[2]
mm_plus[1] = ":"
mm_plus[2] = "\"
FOR asd = LEN(driv_lett) TO 2
driv_lett = driv_lett + mm_plus[asd] && You must specify
NEXT &&the root directory

m_getdrv = SPACE(11)
nvolum = 11

xxVolum = 0
GetVolume(@driv_lett,@m_getdrv,11,@xxVolum,0,0,"",0)

RETURN xxVolum
HTH
Boris
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform