Jaime:
Quizas te sirva esto:
Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA"
(ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal
cchBuffer As Long) As Long
Function ShortName(LongPath As String) As String
Dim ShortPath As String
Const MAX_PATH = 260
Dim ret&
ShortPath = Space$(MAX_PATH)
ret& = GetShortPathName(LongPath, ShortPath, MAX_PATH)
If ret& Then
ShortName = Left$(ShortPath, ret&)
End If
End Function
Sacado de VBPJ 101 Tech Tips
Nos Vemos
****************************
Ing. Marcos Mellibovsky
mellibo@satlink.com
Córdoba - Argentina
****************************
----------
De: Jaime Clot Brugueras <jaime@jet.es>
A: vb-esp@ccc.uba.ar
Asunto: (VB-ESP) Nombres largos
Fecha: Miércoles 3 de Septiembre de 1997 16:25
Hola a todos
Gracias por responder Guillermo, pero mi problema es justo el contrario.
Estoy programando con VB5 y necesito darle a un programa MESEDOS una
trayectoria de la que se su nombre largo, esta trayectoria no es siempre la
misma (si no seria muy fácil). El programa ms-dos lo ejecuto con shell y lo
que pasa es que este no se entera de los dichosos nombres largos. ¿ Sabes
de alguna manera de que visual entregue el nombre corto en lugar del largo
?
De cualquier manera te agradezco mucho tu interés. Gracias
PD: Juan Carlos, ya ves que sigo con el problemilla. No me ha respondido
nadie a nivel particular. No te preocupes que si me entero de algo lo
mandare a la lista (y espero que al berres también)
Saludos.
Jaime Clot Brugueras
jaime@jet.es
http://www.jet.es/jaime
----------