دانلود از هاست

[(سیدشریفی)]

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(sSourceUrl As String, sLocalFile As String) As Boolean   DownloadFile = URLDownloadToFile(0&, sSourceUrl, sLocalFile, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS

End Function

    Dim sSourceUrl As String    Dim sLocalFile As String

    

    sSourceUrl = "http://www.domain.ir/download/test.txt"

    sLocalFile = App.Path & "\test.txt"

    

    If DownloadFile(sSourceUrl, sLocalFile) Then

        Open App.Path & "\test.txt" For Input As #1

            Input #1, my_test

        Close #1

    End If

دیروز خیلی روش کار کردم
وقتی فایل رو تو ریشه قرار میدم درست میشه ولی وقتی تو پوشه قرار میدم رفرش نمیشه و قبلی رو میخونه

با تشکر