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
Re: Download your Files from your Space
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
Re: Download your Files from your Space
Thanks is working
lngRetVal = URLDownloadToFile(0, "http://www.XXX.com/" & text1.text, "C:\file.zip", 0, 0)