Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
DOS Compliant Folder names
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01007482
Message ID:
01007511
Views:
10
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 
Previous
Reply
Map
View

Click here to load this message in the networking platform