View Full Version : دانلود فایل ...
mahdi.a.v
دوشنبه 25 دی 1391, 18:48 عصر
سلام
من میخوام کاربر با لینکی که تو textbox مینویسه بعد کلیک میکنه , فایل از اینترنت دانلود بشه ...
البته دیگه پیغام سیو نیاد و بلافاصله شروع به دانلود بشه...
اگه میشه بگید امکان این هست یا نه , ممنون
nakhodasokoot
دوشنبه 25 دی 1391, 19:27 عصر
ی جا خوندم که با این کد میشه
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
فرید نجفلو
دوشنبه 25 دی 1391, 22:54 عصر
سلام
My.Computer.Network.DownloadFile("Http:\\...", "c:\....")
Dim clnt As New Net.WebClient
clnt.DownloadFile("Http:\\...", "c:\....")
nakhodasokoot
دوشنبه 25 دی 1391, 23:22 عصر
در ضمن تابع اصلی رو یادم شده بود :خجالت:
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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.