ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Comment obtenir le nom du volume sans passer par un API   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pte Claire Quebec - Canada
de la société MCRG Software
Fiche personnelle


Note des membres
pas de note

Contributions > 20 - Trucs et Astuces

Comment obtenir le nom du volume sans passer par un API
# 0000000527
ajouté le 09/04/2008 17:13:17 et modifié le 09/04/2008
consulté 3866 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0

Code source :
SELECT  0
pcLocal = "c:\"
CREATE TABLE (pcLocal+"DRIVES.DBF") (LETTER c(1), LABEL c(15))
FOR I = 65 TO 90
    lnType = DRIVETYPE(CHR(i)+":")
    IF  lnType<>1
        =ADIR(laFiles , chr(i)+":" , "DV")'
APPEND BLANK
replace LETTER WITH CHR(i)
replace LABEL WITH laFiles(1)
ENDIF
ENDFOR
lnDir2Dbf= RECCOUNT()
BROWSE NORMAL


Commentaires
le 11/04/2008, Jean à Grenoble a écrit :
je l'avais oubliée !

merci pour le rappel, cela va bien me servir ...

A+
Jean à Grenoble


Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3