Information générale
Catégorie:
Codage, syntaxe et commandes
I use this routine. I like it because it does not need to have WSH installed.
? IsReady("A")
***
* Function IsReady(cDrive)
***
Function IsReady(cDrive)
Local cString1, cString2, nDummy1, nDummy2, nDummy3
Declare Long GetVolumeInformation In Win32API ;
String lpRootPathName, String pVolumeNameBuffer, ;
Long nVolumeNameSize, Long @lpVolumeSerialNumber, ;
Long lpMaximumComponentLength, Long lpFileSystemFlags, ;
String lpFileSystemNameBuffer, Long nFileSystemNameSize
cString1 = Space(256)
cString2 = Space(256)
nDummy1 = 0
nDummy2 = 0
nDummy3 = 0
If GetVolumeInformation(cDrive + ":\" + Chr(0), cString1, 256, nDummy1, nDummy2, nDummy2, cString2, 256) <> 0
Return(.T.)
else
Return(.F.)
Endif
Précédent
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