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