iCode

How to download from net[Syntax Only], EAsy

Track this topic | Email this topic | Print this topic

baller_tk

Posted: Nov 4 2005, 07:34 PM

Administrator
Group Icon

Group: Admin
Posts: 227
Member No.: 1
Joined: 25-October 05

this is pretty easy,

CODE

'BALLER_TK
'Add a command button (called command1)
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()

'replace the first argument with the URL of the file you want to download,
' and the second argument with the local file you want to save this file to.
' when u change the second argument make sure you add the extension as it is in the URL in this case .gif

ret = DownloadFile("http://microsoft.com/library/homepage/images/ms-banner.gif", _
"c:\filename.gif")
End Sub

Private Sub Form_Load()

End Sub

there u go plz readit before tryin it !

--------------------

shaun	Posted: Nov 8 2005, 11:39 AM
n00b Icode'er Group: Members Posts: 3 Member No.: 23 Joined: 8-November 05	Here is an easier way man. In Declarations add this: Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Make a label or command button and add this: Private Sub Command1_Click() ShellExecute hwnd, "Open", "http://www.nexusn2v.com/va/dl1/FerantStudioLite.zip", "", App.Path, 1 End Sub Add your text to the button/label or even an image should do it. The file is only 65 kb so I don't care about the file being used. I notice links get redirected to supported ads first because of this useless host your using. If you only want a forums let me know and I'll install one for you and give you full administration to it. I am only offering this because I hate your host. I have a Dedicated Internet Line and Machine I am working on to offer my own web hosting again. In the mean time contact me via my Yahoo! ID is: shaunmc.116 Shaun Nexusn2v.com - this is not a redirect for those who may ask.

baller_tk	Posted: Nov 8 2005, 07:05 PM
Administrator Group: Admin Posts: 227 Member No.: 1 Joined: 25-October 05	nice one man yo man im not sure if ur gonna be here often but ii was wonderin if u could help moderate this section (vB) im new to VB and need some help withthe tutorials and stuff if u dont mind plz? thnks and btw the thanks for the request i hate the host to :s, i think we can work something out --------------------

shaun	Posted: Nov 8 2005, 08:23 PM
n00b Icode'er Group: Members Posts: 3 Member No.: 23 Joined: 8-November 05	I don't know about Moderating for I have 7 other sites I help out at, my work requires me to program and still be a csr/ssr. I know VB well enough to make my own applications and help out people who are still recent to this language. I am still new too, I just read and study everything to do with computers and web hosting, hardware and today's technology. I am fascinated by biometrics for the bad and the good. If you want a forums board set up I can do that for you. Plus in return it gives me another credit for the online status I already hold. Just contact me on yahoo. If I don't answer right away chances are I'll get back to you with in a couple hours, almost instant or after I am done getting slaughtered on conter strike, lol. Shaun Nexusn2v.com

baller_tk	Posted: Nov 9 2005, 07:32 PM
Administrator Group: Admin Posts: 227 Member No.: 1 Joined: 25-October 05	Hehe, im a CS freak too, i'm a bit lke you and i/m trying to learn all about computers thats why i'm doing Vb at college, anyway i tried to email you but error , can you give your e-mail again... thnks --------------------

baller_tk	Posted: Nov 10 2005, 05:28 PM
Administrator Group: Admin Posts: 227 Member No.: 1 Joined: 25-October 05	BTW, if anyone with enough knowledge about VB would like to take care of this part of the forum and maybe might be elected to be an ADMIN! at a later time, please post below, in the case of two or more contestant we will have a poll to determine who will be in charge of this part of the forum! Yes this means you will have to post some tutorials , anyway good luck to all the contestants! --------------------

shaun	Posted: Dec 26 2005, 08:45 PM
n00b Icode'er Group: Members Posts: 3 Member No.: 23 Joined: 8-November 05	Just passing through dude. Your forums looks 1000x better. I notice you don't have a ton of ads either. I will link you shortly. You should have a main page, in my own opinion your forums and site has alot more potential then just a forums. Shaun http://www.nexusn2v.com

baller_tk	Posted: Dec 27 2005, 03:59 PM
Administrator Group: Admin Posts: 227 Member No.: 1 Joined: 25-October 05	Yeah thanks, and about that mainpage thing i am actually working on it. , should be done soon! --------------------

Release12	Posted: May 23 2006, 07:28 AM
n00b Icode'er Group: Members Posts: 1 Member No.: 80 Joined: 23-May 06	Hey i'm having a little problem with the code using Vb 6 Pro. ret = DownloadFile("http://twelve.awardspace/library.txt", App.Path & "\Library.txt") the ret is returning an error of variable not defined, can you help me? oh, and if the offer for running the VB section is still open, I may be able to help. I'm fairly competent at VB.

Dark Rank	Posted: May 23 2006, 05:49 PM
I have to eat cake too?!? Group: Admin Posts: 100 Member No.: 27 Joined: 11-November 05	Sorry, it's taken... and as for your problem, I can't help you. Oh, and baller, when are you going to add a .Net section?

baller_tk

Posted: May 27 2006, 09:09 PM

Administrator
Group Icon

Group: Admin
Posts: 227
Member No.: 1
Joined: 25-October 05

You need to declare a variable called ret
add this to the top of your procedure

CODE

dim ret as string

that should take care of it

--------------------

Dark Rank	Posted: May 30 2006, 02:48 PM
I have to eat cake too?!? Group: Admin Posts: 100 Member No.: 27 Joined: 11-November 05	Are you going to answer my question, baller?

baller_tk	Posted: Jun 4 2006, 03:26 PM
Administrator Group: Admin Posts: 227 Member No.: 1 Joined: 25-October 05	Woops sorry about that DarkRank, i'll do it now --------------------

« Next Oldest | Visual Basic | Next Newest »

Join the millions that use us for their forum communities. Create your own forum today.

Learn More · Sign-up Now