send
Grupo de Telegram
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Convertir un Path de nombre largo a nombre corto

  • 0 Respuestas
  • 2056 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5283
  • Actividad:
    30%
  • Reputación 28
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 26, 2010, 03:55:48 pm »
Supongamos que tienen un PATH (ruta de carpeta) larga, como por ejemplo "C:\Archivos de programa\". Y por algun motivo, quieren acortarla, ejemplo "C:\ARCHIV~1\". Entonces creen un modulo y carguen, lo siguiente y utilicen esta funcion.

Código: Visual Basic
  1. '----- Creado por CULD -----
  2. '- Para llamar a esta funcion utilizar:
  3. 'Variable = AcortarPath(Ruta)
  4. '- Donde RUTA es la ruta LARGA que se quiere acortar
  5. '- IMPORTANTE: Si o si, la ruta debe existir en la PC, si no existe no puede acortar.
  6.  
  7. Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" _
  8.     (ByVal lpszLongPath As String, ByVal lpszShortPath As String, _
  9.     ByVal cchBuffer As Long) As Long
  10.  
  11. Public Function AcortarPath(Ruta As String) As String
  12. Dim sBuf As String * 260
  13. Dim i As Long
  14.  
  15. i = GetShortPathName(Ruta, sBuf, Len(sBuf))
  16. AcortarPath = Left$(sBuf, i)
  17. End Function
« Última modificación: Mayo 12, 2014, 03:22:47 pm por Expermicid »


 

¿Te gustó el post? COMPARTILO!



Convertir un texto a mayúsculas o minúsculas

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1409
Último mensaje Julio 26, 2010, 10:31:03 am
por ANTRAX
Llamada de un formulario mediante el nombre como string

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1185
Último mensaje Julio 26, 2010, 04:08:58 pm
por ANTRAX
Cerrar Cualquier proceso a partir del nombre

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1239
Último mensaje Julio 26, 2010, 12:35:13 pm
por ANTRAX
Cambiar el nombre del ordenador (A pura API)

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1064
Último mensaje Julio 26, 2010, 12:19:48 pm
por ANTRAX