Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
DOS Compliant Folder names
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Database:
Visual FoxPro
Divers
Thread ID:
01007482
Message ID:
01007511
Vues:
11
This message has been marked as a message which has helped to the initial question of the thread.
By doing a bit of looping through the pathing,
you could use ADIR() using 2 as the last parm
(return the 8.3 file name format)...
lcPath = "C:\PROGRAM FILES\INTERNET EXPLORER\CONNECTION WIZARD"

lnParts	= ALINES( laParts, lcPath, .t., "\" )
lcDOSPath	= laParts[1] + "\"
lcOrigPath	= laParts[1] + "\"
? lcDOSPath
FOR lnI = 1 TO lnParts -1
	ADIR( laDOS, lcOrigPath + laParts[ lnI +1 ], "D", 2 )

	*/ Tack on the DOS version path name...
	lcDOSPath = lcDOSPath + laDOS[1,1] + "\"
	lcOrigPath	= lcOrigPath + laParts[ lnI +1] + "\"
	? lcDOSPath
	? lcOrigPath
ENDFOR 
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform