PASAR A RUTA MS-DOS

Coudet
31 de Octubre del 2003
¿Existe algún comando para transformar un Nombre de ruta de mas de 8 caracteres al formato de ruta del MS-DOS.?
Ej. c:archivos de programas = c:archiv~1

vaca_loca
31 de Octubre del 2003
* para VFP 6, obtener el nombre MSDOS de una ruta.
DECLARE DOUBLE GetShortPathName IN WIN32API ;
STRING lar , ;
STRING cor , ;
LONG lc
* Por ejemplo:
NombreLargo="c:Archivos de ProgramaInternet Explorer"+chr(0)
* Si NombreLargo no contiene un PATH válido el
* buffer Nombrecorto permanece invariable al retornar.
NombreCorto= REPLICATE( CHR(32), 255 ) && buffer
LongitudNcorto=LEN(NombreCorto)
=GetShortPathName(NombreLargo,@NombreCorto,LongitudNcorto)

?STRTRAN(ALLTRIM(NombreCorto),chr(0))

* Espero te sirva . Un saludo