Copy af fil fra internettet

Hej

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 Command1_Click()

Call DownloadFile("http://kbn.dk/minfil.exe", "d:\texttext.jpg")

End Sub

Jeg har selv et problem, hvordan checker man ud af om filen findes?

På den måde jeg lige har vist, der hvis filen ikke findes gennem den bare noget html-kode i filen?

Peter Lang

gennem = gemmer

Ikke for at være en lysseslukker, men jeg syntes ikke det virker! Hvis du har et vb project hvor det virker i kan du jo prøve og maile det til mig!

:o)

Jeg har lige chekket, og det virket fint.


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 Command1_Click()

Call DownloadFile("http://www.eksperten.dk/img/eksperten_logo.gif", "c:\eksperten_logo.gif")

End Sub


Peter Lang

Du har fat i at der skal laves en knap i din form (Command1), som du skal trykke på.

Peter

Mærkeligt???

I Public Function DownloadFile... returnerer lngRetVal ikke 0 men -2147024891 kan det betyde noget??

Det ved jeg desværre ikke hvad betyder???

bliver der ikke gemt en fil på dit c drev?

Nej, der bliver ikke gemt noget! Men der kommer hellerikke nogle fejl!!