'Declaración del Api para obtener el path en formato Corto
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" _
(ByVal lpszLongPath As String, _
ByVal lpszShortPath As String, _
ByVal lBuffer As Long) As Long
Public Function Obtener_Path_corto(Path_File As String) As String
Dim Ret As Long, Buffer As String
'Buffer que retornará el Path
Buffer = String$(165, 0)
Ret = GetShortPathName(Path_File, Buffer, 164)
Obtener_Path_corto = Left$(Buffer, Ret)
End Function
Private Sub Form_Load()
Text1 = Obtener_Path_corto("c:\Un Archivo largo.txt")
'El api GetShortPathName Devuelve en este caso: -> c:\UNARCH~1.TXT
End Sub
yo uso el "Visual Basic 2005 express edition", pero en este ejemplo
el programa me marca error en " Buffer = String$(165, 0)" y "Left$(Buffer, Ret)
"
quiero que alguien lo adapte al VB .NET por que creo que el codigo
es para VB6, necesito este api para poder crear un reproductor de MP3 para mi aplicación.
espero sus respuestas
