Ruta en ms2

como le ago para especificar mi ruta de nombre ms-dos
algo si como app.path poer el app.path me da la ruta del windows y yo quiero la del ms-dos
por ejemplo si una crpeta se llama carpeta 1 me la detecta el ms-dos como carp~1
quiero la misma funcion que app.path pero con los nombres en ms-dos

por favor ayudenmen y de paso gracias por escucharme</TR>

RE: Ruta en ms2

Copia este código en un módulo público

Option Explicit

Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long


Public Function ShortPathName(filename As String) As String
On Local Error Resume Next
Dim shortname As String
Dim waste As Long
shortname = String(255, " ": waste = Len(shortname)
waste = GetShortPathName(filename, shortname, waste)
ShortPathName = shortname
End Function


Shortpayhname te devolverá una cadena con la ruta corts (MSDOS) del fichero solicitado.

Te adjunto un ejemplo para que lo pruebes.


Un cordial saludo
-Acalanto-

__________________
Un cordial saludo
-Acalanto-

Madrid - España

Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion