Cómo obtener un nombre de archivo corto de un nombre de archivo largo

Seleccione idioma Seleccione idioma
Id. de artículo: 175512 - Ver los productos a los que se aplica este artículo
Expandir todo | Contraer todo

En esta página

Resumen

En determinadas circunstancias, puede ser necesario obtener el nombre de archivo corto equivalente de un archivo que tiene un nombre de archivo largo. El ejemplo siguiente, podrá seleccionar un archivo que tiene un nombre de archivo largos y devolver es el nombre de archivo corto mediante la llamada de función de API GetShortPathName.

Más información

En el ejemplo de código siguiente se incluye una función que convertirá largos en sus equivalentes de nombre de archivo corto y también incluye una sencilla demostración del uso de la función.

Ejemplo paso a paso

  1. Crear un nuevo proyecto EXE estándar en Visual Basic. Se creará Form1 de manera predeterminada.
  2. Coloque un CommandButton en Form1.
  3. Coloque un control cuadro de diálogo común en el formulario.
  4. En el menú Insertar , seleccione módulo para agregar un módulo de código único al proyecto.
  5. Agregue el código siguiente a Module1:
       Declare Function GetShortPathName Lib "kernel32" _
          Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _
          ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
    
       Public Function GetShortName(ByVal sLongFileName As String) As String
           Dim lRetVal As Long, sShortPathName As String, iLen As Integer
           'Set up buffer area for API function call return
           sShortPathName = Space(255)
           iLen = Len(sShortPathName)
    
           'Call the function
           lRetVal = GetShortPathName(sLongFileName, sShortPathName, iLen)
           'Strip away unwanted characters.
           GetShortName = Left(sShortPathName, lRetVal)
       End Function
    					
  6. Agregue el código siguiente a Form1:
       Private Sub Command1_Click()
         Dim msg As String
         CommonDialog1.FileName = "*.*"
         CommonDialog1.ShowOpen
         msg = "Long File Name: " & CommonDialog1.filename & vbCrLf
         msg = msg & "Short File Name: " & GetShortName(CommonDialog1.filename)
         MsgBox msg
       End Sub
    					
  7. Ejecute el proyecto presionando la tecla F5. Haga clic en el botón de comando para mostrar el cuadro de diálogo Abrir. Desplácese el cuadro de diálogo Abrir y busque un archivo que tiene un nombre de archivo largo. Seleccione el archivo y haga clic en Aceptar.
  8. El cuadro de mensaje mostrará el nombre de archivo largos junto con su nombre de archivo cortos.

Referencias

Para obtener información adicional, consulte en contacto con el siguiente artículo en Microsoft Knowledge Base:
154822Cómo obtener un nombre de archivo largo de un nombre de archivo corto

Propiedades

Id. de artículo: 175512 - Última revisión: viernes, 11 de marzo de 2005 - Versión: 3.2
La información de este artículo se refiere a:
  • Microsoft Visual Basic Control Creation Edition
  • Microsoft Visual Basic 5.0 Learning Edition
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Visual Basic 4.0 Standard Edition
  • Microsoft Visual Basic 4.0 Professional Edition
  • Microsoft Visual Basic 4.0 32-Bit Enterprise Edition
  • Microsoft Visual Basic 6.0 Edición de aprendizaje
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
Palabras clave: 
kbmt kbdocfix kbhowto KB175512 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 175512

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com