[سوال] دانلود یک فایل از اینترنت

[GTAexcess]

سلام دوستان . چطوری میتونم آدرس یک فایل رو به برنامه بدم تا با کلیک روی کامند اونو دانلود و مثلا در درایو d قرار بده ؟
آدرس برنامه و محل ذخیره پیشفرض داخل برنامه باشه فقط کلیک روی کامند توسط کاربر انجام بشه با فرض اینکه به اینترنت هم کانکت هست ؟
ممنون .

[HamedFaa]

کد:

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

Call URLDownloadToFile(0, FileURL, SaveLocation, 0, 0)

[GTAexcess]

ممنونم ، از این ای پی آی باید این طوری استفاده کنم :

کد:

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

Private Sub Command_Click()
Call URLDownloadToFile(0, "http://up.iranblog.com/images/z7gh1zf7f5xwi1t7jeo.jpg", "D:\", 0, 0)
End Sub

[HamedFaa]

اسم و پسوند فایلی که اطلاعات دانلود شده درونش ذخیره میشه رو باید بجای D:\ بدی:

کد:

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

Private Sub Command1_Click()
strOpen = "http://up.iranblog.com/images/z7gh1zf7f5xwi1t7jeo.jpg"
strSave = "D:\File." & Right(strOpen, 3)
Call URLDownloadToFile(0, strOpen, strSave, 0, 0)
End Sub