Como obter um nome de arquivo curto de um nome de arquivo longo

Voltar para o início

Exemplo passo a passo

1. Crie um novo projeto Standard EXE no Visual Basic. O Form1 é criado por padrão.
2. Coloque um CommandButton no Form1.
3. Coloque um controle caixa de diálogo comum no formulário.
4. No menu Inserir , selecione o módulo para adicionar um módulo de código único para o projeto.
5. Adicione o seguinte código para 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. Adicione o seguinte código ao 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. Execute o projeto pressionando a tecla F5. Clique no botão de comando para mostrar a caixa de diálogo Abrir. Navegue a caixa de diálogo Abrir e localize um arquivo que possui um nome de arquivo longo. Selecione o arquivo e clique em OK.
8. A caixa de mensagem exibirá o nome de arquivo longos junto com seu nome de arquivo curtos.

Voltar para o início