|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Arquivos/Diretórios)
|
|
 |
Título da Dica: Lendo remotamente arquivos textos
|
 |
|
|
|
Postada em 3/1/2008 por ghost_jlp
Podemos querer ler um arquivo texto que está em um servidor da internet por exemplo:
http://www.detran.sp.gov.br/notifica/CNHs_notificadas_dezembro2007.txt
Para capturar os dados diretamente sem precisar salvar o arquivo no nosso computador vamos usar a biblioteca MSXML2.
Vá no menu "Project/References..." escolha "Microsoft XML, vX.X" onde X.X é sua versão.
Depois coloque este código:
Dim objXML As MSXML2.XMLHTTP
Dim strcontents as String
Set objXML = New MSXML2.XMLHTTP
'Lendo o arquivo texto...
objXML.open "GET", "http://www.detran.sp.gov.br/notifica/CNHs_notificadas_dezembro2007.txt", False
objXML.send
strcontents = objXML.responseText
If objXML.Status = 404 Then
MsgBox "Arquivo não encontrado!", vbCritical, "Erro"
Else
MsgBox "Arquivo encontrado!"
End If
Fácil não?!?!
Até a próxima :D
|
|
|
|
|
