download cfg file

[davyquyo]

how can i download a cfg file

i try it with this script but it would not work

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()
DownloadFile "http://84.244.130.208/cod/main/dedicated.cfg", "c:\dedicated.cfg"
End Sub

thanks for the help

[dglienna]

does the URL work correctly from a browser window? Here is how I did it...

Option Explicit

Private Sub Form_Load()

    DownLoadFromURL "http://somewhere..net/~some/", "somefile.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() = Inet1.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

[davyquyo]

with this i can see the cfg file but the file is empty

you can't read it online that's why i want to download it

[dglienna]

can't you download it and THEN read it?

[davyquyo]

that's what i try to do but with a script
it's a file that is been used for an program online bbut i need to keep this files updated so i can chenge it but there are people who need to see this to that's why i want to download this file with a script