|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Arquivos/Diretórios)
|
|
 |
Título da Dica: Carregando um arquivo texto para um ListBox
|
 |
|
|
|
Postada em 8/10/2000 por Webmaster
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.
|
|
|
|
|
