دانلود یک فایل از اینترنت

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

الحمداللله اینقدر رسیدگی شد اصلا موندم چطوری تشکر کنم .
به هرحال از فروم

کد:

---

www.vbforums.com

---

پرسیدم یک ساعت بعد جواب دادن .
اینم کدش ، شاید بعدا کسی لازمش بشه دیگه مثل من علاف نشه :

کد:

---

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 Text1, Text2
End Sub

---

آدرس فایل آپلود شده = Text1
محل ذخیره فایل روی سیستم همراه با نام و پسوند (فقط اگه ویندوز سون دارین روی درایو C ندازین چون میگه اجازه دسترسی ندارید) = Text2

البته اینم میشه :

کد:

---

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.--------.com/images/z7gh1zf7f5xwi1t7jeo.jpg"
strSave = "D:\File." & Right(strOpen, 3)
Call URLDownloadToFile(0, strOpen, strSave, 0, 0)
End Sub

---