دانلود فایل ...

[mahdi.a.v]

سلام
من میخوام کاربر با لینکی که تو textbox مینویسه بعد کلیک میکنه , فایل از اینترنت دانلود بشه ...
البته دیگه پیغام سیو نیاد و بلافاصله شروع به دانلود بشه...
اگه میشه بگید امکان این هست یا نه , ممنون

[nakhodasokoot]

ی جا خوندم که با این کد میشه

Public Function DownloadFile(ByVal URL As String, ByVal LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function

[فرید نجفلو]

سلام

My.Computer.Network.DownloadFile("Http:\\...", "c:\....")

Dim clnt As New Net.WebClient
clnt.DownloadFile("Http:\\...", "c:\....")

[nakhodasokoot]

در ضمن تابع اصلی رو یادم شده بود :خجالت:


Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Integer, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Integer, ByVal lpfnCB As Integer) As Integer