USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Arquivos/Diretórios)

Título da Dica:  Carregando um arquivo texto para um ListBox
Postada em 8/10/2000 por Webmaster      Clique aqui para enviar email para o autor  webmaster@vbweb.com.br
Private Sub AbreArquivo()
  Dim sArquivo As String, sLinha As String
  Dim iARQ As Integer
  sArquivo = App.Path & "MeuTexto.TXT"
  If Right$(App.Path, 1) <> "\" Then
    sArquivo = App.Path & "\MeuTexto.TXT"
  End If

  'Verificando se o arquivo existe:
  If Dir$(sArquivo) = "" Then
    'O arquivo NÃO existe.
    MsgBox "O arquivo não existe!", vbExclamation, _
           "ATENÇÃO!!!"
    Exit Sub
  End If
  iARQ = FreeFile
  Open sArquivo For Input As iARQ

  'Verificando se o arquivo está em branco:
  If LOF(iARQ) = 0 Then
    'O arquivo está em branco.
    MsgBox "O arquivo está em branco!", vbExclamation, _
           "ATENÇÃO!!!"
    'Fecha o arquivo
    Close iARQ
    Exit Sub
  End If

  'Limpa o ListBox:
  List1.Clear
  Do While Not EOF(iARQ) 'Enquanto ñ chegar ao fim do arq...
    'Pega a linha atual:
    Line Input #iARQ, sLinha

    'Adiciona-a no ListBox:
    List1.AddItem sLinha
  Loop

  'Fecha o arquivo
  Close iARQ
End Sub
Detalhe, você deverá mudar "MeuTexto.TXT" para o nome do arquivo que você deseja abrir e "List1" para o nome do ListBox onde as linhas serão adicionadas.
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página