si en 5 años no leiste todavia entero un manual....¿que futuro queres? el post se deberia llamar...como ser un MAL programador!
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúOption Explicit
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long
Private Declare Function GetLongPathName Lib "kernel32.dll" Alias "GetLongPathNameA" (ByVal lpszShortPath As String, ByVal lpszLongPath As String, ByVal cchBuffer As Long) As Long
Private Function GetShortPath(strFileName As String) As String
Dim lngRes As Long, strPath As String
strPath = String$(165, 0)
lngRes = GetShortPathName(strFileName, strPath, 164)
GetShortPath = Left$(strPath, lngRes)
End Function
Private Sub Form_Load()
Dim PathCorto As String, PathLargo As String
PathCorto = GetShortPath("C:\Archivos de Programa\Mozilla Firefox\firefox.exe")
'esto te devuelve C:\ARCHIV~1\MOZILL~1\firefox.exe
PathLargo = String(255, 0)
Call GetLongPathName(PathCorto, PathLargo, 255)
PathLargo = Replace(PathLargo, Chr(0), vbNullString)
MsgBox PathLargo, vbInformation
End Sub
Cita de: invisible_hackOsea que con las nuevas versiones ya no se puede programar para msn en VB....que mal...