Download your Files from your Space

Hi Guy's :wave:

I have the below code to Download some files from mentioned Space to your PC

Code:

---


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()

lngRetVal = URLDownloadToFile(0, "http://www.XXX.com/File1.zip", "C:\file.zip", 0, 0)

End Sub

---

My question is : In my space "www.XXX.com"

I have many files as the following

file1
file2
file3
file4

I want to put some options in the form as the below what's the file I want to download it

http://www.ar4up.com/uploads/68b3d6cd6d.gif

How to can I get my idea , Pls your kind advice

I hope to get my point

try this:

Code:

---

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()

lngRetVal = URLDownloadToFile(0, "http://www.XXX.com/" & text1.text, C:\file.zip", 0, 0)

End Sub

---

just type the filename in the textbox like file1.zip and click the button

Thanks is working

lngRetVal = URLDownloadToFile(0, "http://www.XXX.com/" & text1.text, "C:\file.zip", 0, 0)