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

Id. de artículo: 175512 - Ver los productos a los que se aplica este artículo
Traducción automáticaAdvertencia: Artículo de Traducción Automática, vea la exención de responsabilidad.
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.
Volver al principio | Enviar comentarios

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.
Volver al principio | Enviar comentarios

Referencias

Para obtener información adicional, consulte en contacto con el siguiente artículo en Microsoft Knowledge Base:
154822
(http://support.microsoft.com/kb/154822/EN-US/ )
Cómo obtener un nombre de archivo largo de un nombre de archivo corto
Volver al principio | Enviar comentarios

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
(http://support.microsoft.com/kb/175512/en-us/ )
Volver al principio | Enviar comentarios

Enviar comentarios

 
Volver al principioVolver al principio