大虾救命，我在线等

Question

我是菜鸟，那位大虾知道如何打开远程的文本文件，我要使用里面的数据，例如在
HTTP://WWW.AAA.COM/1.TXT,我如何把里面的内容给读到程序里面去，谢谢

Answer 1

用Inet控件先把文件下在到本地，然后随便你怎么弄它都可以Private Function downloadOneFile(Inet_Dowload As Inet, fileURL As String, localFile As String)
Dim fileNum     As Integer
    'download
    Dim b() As Byte
    fileNum = FreeFile
    b() = Inet_Dowload.OpenURL(fileURL, icByteArray)
On Error Resume Next
    Open localFile For Binary Access Write As #fileNum
    Put #fileNum, , b()
    Close #fileNum
End Function