FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#9
|
|||
|
|||
Compañeros, TENGO QUE RECTIFICARME. Pensaba que el problema estaba en la longitud de la cadena. Pues haciendo pruebas, he comprobado que es porque existen mas de 4 subdirectorios que comienzan con las mismas 8 letras dentro del mismo directorio. Hasta el cuarto todo va bien. Si intentas averiguar la cadena corta desde el quinto, por orden de creación, ya se desmadra el GetShortPaathName. Si alguien quiere comprobarlo, puede hacerlo con esta sencilla función.
Function Ruta:string; var DirActual:String; corto:array [1..400] of char; longitud:Cardinal; begin GetDir(0,DirActual); GetShortPathName(PChar(DirActual),@corto,longitud); Ruta:=corto; end; |
|
|
|