[RESOLVED] Get Text From File On Site

[GedOfEarthsea]

Hello, I would like to know how to connect to a site and read a data file and have a textbox have the same text as the file. The reason so I can learn an easy way to check for updates.

[gavio]

Use the Internet Transfer Control (Inet):

Text1.Text = Inet1.OpenURL ("http://www.google.com")

edit: For a better view, use:

Text1.MultiLine = True

[[anarchy]]

i would download a spicified INI or TXT file and have the newest version stored in there, and compare it to the version stored in the your exe.

[GedOfEarthsea]

Is there another way to do this besides the Internet Transfer Control?

[Al42]

You could FTP the file. How you do it depends on how the site is set up and what permissions you have on the site.

[GedOfEarthsea]

Nevermind I used something I found in the API-Guide. If you are interested it was this:

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
    Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
    If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Form_Load()
    'example by Matthew Gates ([email protected])
    DownloadFile "http://www.allapi.net", "c:\allapi.htm"
End Sub

[gavio]

I have just recently see somebody having problems with this API. Check... this thread.

[GedOfEarthsea]

Thanks, I will look into it