Webbrowser (FIL-Download)

Tags:    visual-basic

Hejsa. Jeg har i nogle år arbejdet med en webbrowser og er nu nået til version 6.0.

Jeg ved godt hvordan man downloader filer med Visual Basic
men jeg vil gerne have så det er fx frmDownload der kommer frem når man downloader en .exe .zip eller .rar i stedet for Windows Standard Download program.

Der er en procedure i Microsoft Internet Controls (webbrowser)
der hedder FileDownload men den ser ikke ud til at virke!

Er der en løsning?

Med Venlig Hilsen
Morten Torndahl Pedersen

PS: HJÆÆÆÆÆÆÆÆÆÆÆÆLP!!!!!! :'(

[Redigeret d. 22/04-05 23:38:29 af Morten Torndahl Pedersen]



2 svar postet i denne tråd vises herunder
0 indlæg har modtaget i alt 0 karma
Sorter efter stemmer Sorter efter dato
User
Bruger #549 @ 11.05.05 21:55
Hejsa. Jeg har i nogle år arbejdet med en webbrowser og er nu nået til version 6.0.

Jeg ved godt hvordan man downloader filer med Visual Basic
men jeg vil gerne have så det er fx frmDownload der kommer frem når man downloader en .exe .zip eller .rar i stedet for Windows Standard Download program.

Der er en procedure i Microsoft Internet Controls (webbrowser)
der hedder FileDownload men den ser ikke ud til at virke!

Er der en løsning?

Med Venlig Hilsen
Morten Torndahl Pedersen

PS: HJÆÆÆÆÆÆÆÆÆÆÆÆLP!!!!!! :'(

[Redigeret d. 22/04-05 23:38:29 af Morten Torndahl Pedersen]


Hej

Kan du evt bruge denne rutine:

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()
DownloadFile "http://Filnavn", App.Path & "\\filnavn"

End Sub





Det skulle gerne være sådan at når jeg klikker på en fil i min webbrowser så bliver fx formen frmDownload vist.

Den skal erstatte Windows Download Dialog.

Med Venlig Hilsen
Morten Torndahl Pedersen



t