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

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
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
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.
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.
kbVBp400 vkbVBp500bug kbVBp600bug kbVBp kbdsd kbDSupport KBWIN32SDK KBAPI

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 154822 - Última Revisão: 02/22/2014 01:50:10 - Revisão: 4.1

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

  • kbnosurvey kbarchive kbmt kbhowto KB154822 KbMtpt
Comentários