Internetdatei downloaden

Computer: Software & Programmierung Visual Basic
#1

Hallo,
ich brauche einen Zugriff aufs Internet.
Und zwar soll das Programm eine Datei von meiner Homepage herunterladen, sofern Sie dort existiert!

Dazu muss ich ja folgendes machen:
-Internetseite aufrufen (muss ich das)
-Prüfung ob die Datei test.exe existiert
-dann die Datei von www.test/Resources/test.exe herunterladen
mit Pfadauswahl zum speichern

Wie geht das, evtl. soll noch der Name der Datei abgefragt werden
also das die Datei test.exe heisst.

Kann mir dabei jmd helfen bitte.

Mfg Werner

#2

Hi Werner,

http://www.activevb.de/tipps/vb6tipps/tipp0022.html

sieh Dir den Code mal an.

Gruß, Rainer

#3

Geht nicht
Hi Rainer,
wie immer bei den Links funktioniert irgendwas einfach nicht.
Also bleiben meine FRagen zunächst erhalten.
Das mit dem Variablen übergeben mache ich eigentlich nicht, daher kenne ich die schreibweise nicht so.

Mfg Werner

#4

Hi Werner,

wie immer bei den Links funktioniert irgendwas einfach nicht.

Dann machst Du etwas falsch, die Beispiele laufen alle. Manchmal liegt das Geheimnis in einem Verweis o.ä. Probleme damit kann man vermeiden, indem man das Projekt saugt, statt nur den Code zu kopieren.

Also bleiben meine Fragen zunächst erhalten.
Das mit dem Variablen übergeben mache ich eigentlich nicht,
daher kenne ich die schreibweise nicht so.

Du wirst auch hier nur Tipps bekommen können. Du hast immer Code, den Du erst verstehen musst, bevor Du ihn an Deine Bedürfnisse anpassen kannst.

Gruß, Rainer

#5

Hab was gefunden, fehlt aber noch der Balken
Hi,
hab was gefunden, was auch funktioniert. Allerdings fehlt mir die Original-Download Balken mit Ausführen, Speichern, Abbrechen
wie wenn man eine Datei im Internet zum Download anklickt.

Wo ist diese Funktion verankert???

Public 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()
Call test
End Sub

Sub test()
URL = „http://www.gbiu.de/Hamsterkiste/Sachunterricht/W- mann/weihnachtsmann.jpg“
rc = URLDownloadToFile(0, URL, „C:\tmp.jpg“, 0, 0)
If rc > 0 Then MsgBox „Fehler beim downloaden“
End Sub

#6

Hallo Werner,

hab was gefunden, was auch funktioniert. Allerdings fehlt mir
die Original-Download Balken mit Ausführen, Speichern,
Abbrechen
wie wenn man eine Datei im Internet zum Download anklickt.

Wo ist diese Funktion verankert???

Das ist nur eine Messagebox. Richtig beschriften, den richtigen Typ wählen und die sieht aus, wie Du es möchtest.

Gruß, Rainer