checking file on internet

[lay_z_boy00]

hey all,

wat im trying to do is get my program to check if the version it has is the newest.

my theory is - have 2 files, one the setup file the other a text file.
if the textfile name = the text in the curV.txt file then nuthing, otherwise download. can u please help me on this,

btw, the 2 files (setup.exe and textfile are on the net)

[adzzzz]

What exactly are you having trouble with?

[lay_z_boy00]

i have no idea where to start?

[pnish]

Try this. You need a form with an Internet Transfer Control called inetDownload on it.

Option Explicit
 
Private Sub Form_Load()
 
    DownLoadFromURL "http://www.yourwebsite.com/files/", "filetodownload.txt"
    Unload Me
    
End Sub
 
Private Sub DownLoadFromURL(ByVal url As String, ByVal filename As String)
    '
    '   Download a file from a given URL
    '
    Dim bytes() As Byte
    Dim fnum As Integer
    Dim ftext As String
    '
    ' Download the file and load into byte array
    '
    ftext = url & filename
    bytes() = inetDownload.OpenURL(ftext, icByteArray)
 
    fnum = FreeFile
    '
    '   Write the downloaded file to disk
    '
    Open App.Path & "\" & filename For Binary Access Write As #fnum
    
    Put #fnum, , bytes()
    Close #fnum
    
End Sub

This will download the file for you, what you do with the file is up to you.

Good luck

[dglienna]

that inspires me to write an app for my dad. his golf club posts a new handicap file every week to be used by an app that they gave him. i have to go over there every week to get it for him. if i can teach him to run this app while he's online, then it'll get the new file without my help. brillant!

[lay_z_boy00]

pnish u are a guiniuss (srry dont know spelling)

thank u soo much

[lay_z_boy00]

man i couldent express myself in the last one.

THANK U SOOOOOO MUCH U LEGEND!!!!

U ARE A TOTAL LIFESAVER!

[pnish]

Jeez!! You've made me blush

By the way, you're welcome.