Download your Files from your Space

[alkater]

Hi Guy's

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

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



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

I hope to get my point

[killo]

try this:

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

[alkater]

Thanks is working

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