Como obter um nome de ficheiro mais de um nome de ficheiro longo

Voltar ao topo

Exemplo passo a passo

1. Crie um novo projecto EXE padrão no Visual Basic. É criado o Form1 por predefinição.
2. Coloque um CommandButton no Form1.
3. Coloque um controlo caixa de diálogo comuns no formulário.
4. No menu Inserir , seleccione o módulo para adicionar um módulo de código único de projecto.
5. Adicione o seguinte código ao 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 projecto premindo 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 localizar um ficheiro que tenha um nome de ficheiro longo. Seleccione o ficheiro e clique em OK.
8. A caixa de mensagem mostra o nome de ficheiro longos juntamente com o nome de ficheiro mais.

Voltar ao topo