Uploading files to a Web Server using FTP 4

[VBQuery]

Hi guys
I have a question for you.
My application loads reports from Crystal and it should save them in a network directory. And more important is all files are to be uploaded to Web sever using FTP.
There is no kind of visual interface involved at any stage of application.
I am new to VB programming. How do I design the application which uses the FTP from with in the application and go to the network directory and upload all the files to a specific directory on the webserver.
Help me outttttttttt!!!

Thanks in advance

 

[sukip]

can U pls email Ur activex dll. Much appreciated.
thanks.
My email: sukip@hotmail.com

 

[ray00]

Can I get a copy of it please? My email is cxde2000@yahoo.com.
Thanks in advance.

 

[wraygun]

I would be interested in purchasing a copy. If you've put this much work into it, you should be compensated. If you're interested, I may be able to help you market it.

Thanks,
The Gun

myveryownpc@hotmail.com

 

[dh01]

Dear sodakotahusker,

Could I have a copy too, please...

My email is dhalleran@yahoo.com

Thankyou

DH01

 

[Frogger0]

could I have o copy too?


ffrogger0@yahoo.com

 

[Ronarick]

Sodakotahusker,
Can your program upload several files at once? I need an application that will ftp upload c:\up\*.zip and c:\up\*.txt, without the user having to select one, upload it, select another, upload it, ad naus.

Thanks !

 

[Gelbraen]

I just found this forum and have been having trouble FTPing to HTaccess protected areas because of the bug in ITC sp2 (I have VB5.) Does your activeX control use ITC? There's no way I can dl the 53M sp3 to upgrade, so I have to find another way. Sigh.

Gelbraen

 

[jitter]

would love to have a copy if it is still open.

rzcam@yahoo.com

Thanks

 

[Stopher]

Could I have a copy please to?

Da_Stopher@yahoo.com

Thanx
Stopher

 

[sunaj]

Everybody,

Also check out this tutorial on how to make your own ftp program (or compile it into a dll if you like):

http://www.15seconds.com/issue/981203.htm

Sunaj
'The gap between theory and practice is not as wide in theory as it is in practice'

 

[inncoggnitto]

mleckie@tnrcc.state.tx.us would like the code too if it is still available. thanks

 

[gunnermac]

sodakotahusker,

could i please get a copy of your source code.

Thanks

Stu Mac
tek-tips@stumac.f9.co.uk
:

 

[rembrechts]

Could I have A example of your Active X end cource Code to please

rembrechts@schoeller.be

 

[elvenmaiden]

If any one of you has this ftp code, please let me know.

Thanks!

 

[Petya]

hi
I would be very happy to get your activex sourse
thks
petya

 

[jlgdeveloper]

sodakotahusker

Looks like you have a winner. Don't send it to me, do everyone a favor and post an article on it in the faq area with a link to download it and the sample app.

If you need a venue to download it from, I and others here can help. Jonathan Galpin

http://www.iqzero.net

http://www.keen.com/categories/categorylist_expand.asp?sid=5215353&gid=0&pmode=0

 

[sunaj]

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

Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal HINet As Long) As Integer
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUsername As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" (ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
Private Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hFtpSession As Long, ByVal lpszLocalFile As String, ByVal lpszRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean

Private Sub Command1_Click()
Dim INet As Long, INetConn As Long, RC As Boolean
INet = InternetOpen("MyFTP Control", 1, vbNullString, vbNullString, 0)
INetConn = InternetConnect(INet, "ServerURL", 0, "yourlogin", "yourpassword", 1, 0, 0)
RC = FtpGetFile(INetConn, "/path/file.ext", "c:\path\filename.ext", 0, 0, 1, 0)
If RC Then MsgBox "Transfer succesfull!" Else MsgBox "Bummer, it didn't work"
InternetCloseHandle INetConn
InternetCloseHandle INet
End Sub
-----------------------------------------------------------
See

http://www.15seconds.com/issue/981203.htm

for more. Sunaj
'The gap between theory and practice is not as wide in theory as it is in practice'

 

[strongm]

Looking at the dates of the original posts I suspect that sodakotahusker is no longer around to post a FAQ...

 

[rpbenito]

I would really appreciate the code if the offer is still there...THANKS!!!!!!!!!!

Pat

rbenito@bandrsolutions.com

 

[asnetusa]

Hi sodakotahusker,

Could I have a copy too, please...

My e-mail is asnetusa@aol.com

Thanks a lot,

Juan C