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

Traduções deste artigo Traduções deste artigo
ID do artigo: 175512 - Exibir os produtos aos quais esse artigo se aplica.
Expandir tudo | Recolher tudo

Neste artigo

Sumário

Em determinadas circunstâncias, talvez seja necessário obter o nome de arquivo curto equivalente de um arquivo que tenha um nome de arquivo longo. O exemplo a seguir permitem que você selecione um arquivo que tenha um nome de arquivo longo e retornar é o nome de arquivo curto usando a chamada de função da API GetShortPathName.

Mais Informações

O exemplo de código a seguir inclui uma função que irá converter nomes extensos de arquivos para seus equivalentes de nome de arquivo curto e também inclui uma demonstração simples do uso da função.

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.

Referências

Para obter informações adicionais, consulte o seguinte artigo na Base de dados de Conhecimento da Microsoft:
154822Como obter um nome de arquivo longo de um nome de arquivo curto

Propriedades

ID do artigo: 175512 - Última revisão: sexta-feira, 11 de março de 2005 - Revisão: 3.2
A informação contida neste artigo aplica-se 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 de 32 Bits Enterprise Edition
  • Microsoft Visual Basic 6.0 Learning Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
Palavras-chave: 
kbmt kbdocfix kbhowto KB175512 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 175512

Submeter comentários

 

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