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

ID do artigo: 154822 - Exibir os produtos aos quais esse artigo se aplica.
Tradução automáticaExibir Aviso de Isenção de Tradução Automática
Expandir tudo | Recolher tudo

Nesta página

Sumário

A função Dir() pode ser usada para retornar um nome de arquivo longo, mas ele não inclui informações de caminho. Ao analisar o nome de um determinado caminho/arquivo curto em seus diretórios constituintes, você pode usar a função Dir() para criar um caminho/nome de arquivo longo. Este artigo demonstra como realizar esse comportamento.
Voltar para o início | Submeter comentários

Mais Informações

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

Exemplo passo a passo

  1. Inicie o Visual Basic. O Form1 é criado por padrão.
  2. Coloque um botão de comando para Form1.
  3. No menu Inserir, selecione módulo para adicionar um módulo de código único para o projeto.
  4. Adicione o seguinte código para Module1: 
       Public Function GetLongFilename _
     (ByVal sShortName As String) _
     As String

     Dim sLongName As String
     Dim sTemp As String
     Dim iSlashPos As Integer

     'Add \ to short name to prevent Instr from failing
     sShortName = sShortName & "\"

     'Start from 4 to ignore the "[Drive Letter]:\" characters
     iSlashPos = InStr(4, sShortName, "\")

     'Pull out each string between \ character for conversion
     While iSlashPos
       sTemp = Dir(Left$(sShortName, iSlashPos - 1), _
         vbNormal + vbHidden +    vbSystem + vbDirectory)
       If sTemp = "" Then
         'Error 52 - Bad File Name or Number
         GetLongFilename = ""
         Exit Function
       End If
       sLongName = sLongName & "\" & sTemp
       iSlashPos = InStr(iSlashPos + 1, sShortName, "\")
     Wend

     'Prefix with the drive letter
     GetLongFilename = Left$(sShortName, 2) & sLongName

   End Function
  5. Adicione o seguinte evento Command1_Click: 
       Private Sub Command1_Click()

     'Assumes C:\Program Files\Common Files is a valid path
     Print GetLongFilename("C:\PROGRA~1\COMMON~1")

   End Sub
  6. Escolha Iniciar no menu ' Executar ' ou pressione a tecla F5 para iniciar.
  7. Clique no botão de comando.
Se o caminho que você forneceu é válido, o equivalente longo serão impressas no formulário. Se não for válido, nada será impresso, caso em que você precisará fornecer um nome de arquivo curto válido no código de Command1_Click evento.
Voltar para o início | Submeter comentários

Propriedades

ID do artigo: 154822 - Última revisão: quinta-feira, 1 de julho de 2004 - Revisão: 4.1
A informação contida neste artigo aplica-se a:
  • Microsoft Visual Basic 5.0 Learning Edition
  • Microsoft Visual Basic 6.0 Learning Edition
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
  • Microsoft Visual Basic 4.0 Standard Edition
  • Microsoft Visual Basic 4.0 Professional Edition
  • Microsoft Visual Basic 4.0 de 32 Bits Enterprise Edition
Palavras-chave: 
kbmt kbhowto KB154822 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: 154822
(http://support.microsoft.com/kb/154822/en-us/ )
Voltar para o início | Submeter comentários

Submeter comentários

 
Voltar para o inícioVoltar para o início