Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Bilderdownload
Autor: bluedead007
Datum: 26.02.04 21:41
Probier es mal so: 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 Private Sub Form_Load() Dim lResult As Long Dim sURL As String Dim sLocalFile As String ' URL-Link der Datei, die heruntergeladen werden soll sURL = "http://www.tools4vb.de/download/sevTrayIcon.zip" ' Dateiname auf dem lokalen System sLocalFile = "C:\Eigene Dateien\clanwissen.zip" ' Download ausführen Screen.MousePointer = vbHourglass lResult = URLDownloadToFile(0, sURL, sLocalFile, 0, 0) Screen.MousePointer = vbNormal ' Rückgabewert auswerten If lResult = 0 Then MsgBox "Download erfolgreich ausgeführt!" Else MsgBox "Fehler beim Download: " & _ "Entweder existiert die URL nicht, oder Sie haben " & _ "einen ungültigen Dateinamen angegeben!", vbCritical End If End Sub

Bilderdownload	621	Andavos	26.02.04 16:37
Re: Bilderdownload	390	ICE-MAN	26.02.04 18:36
Re: Bilderdownload	366	Andavos	26.02.04 19:34
Re: Bilderdownload	353	ICE-MAN	26.02.04 19:39
Re: Bilderdownload	366	Andavos	26.02.04 20:07
Re: Bilderdownload	338	ICE-MAN	26.02.04 20:12
Re: Bilderdownload	362	bluedead007	26.02.04 21:41
Re: Bilderdownload	343	Andavos	27.02.04 17:31

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen