How do you upload a text file and a folder to a remote internet server???

[ThEiMp]

Hello, I wish to have a Visual Basic Application to upload a data text file and a number of blank folders to a remote internet server, that I have my webpage on. But then I wish to have my Visual Basic Application to communicate with it, as well. I wish this to only be not bigger than one Form, in deed that would be far too much to handle. Can someone please help me with this problem of mine???

!! Thanks in advance !!

[ladoo]

simple answer making similar to ftp application no matter wat

[dilettante]

It all depends on what your server supports.

The crude LAMP-based freebie web hosting people often use supports little besides the creaky old deprecated, insecure, firewall-hostile FTP protocol for this. There is little support for FTP in Windows for good reasons, and the only standard component supporting it (partially and clunkily) is the Internet Transfer Control (INet).

However if you use hosting where FrontPage Server Extensions or WebDAV are supported it can be like miles of smooth level road. I won't bother describing the techniques required since you are unlikely to have the capability at your server.

[ThEiMp]

!! Thanks for the Input !!

Problem #1: The Internet Hosting Server, is the http://www.zymic.com/, if that helps. Also then I have found a VBForums, Thread on a File Upload that uses PHP and VB6 to do the work. If I am able to upload it as an attachment to the Thread in one of the future Posts, can someone please help me to look at it. I am required to have a silent Upload Form and then not one that has the Loud Upload Form, which means that the loud upload is the one with the upload DialogBox, addded to it using something like the CommonDialogBox Control. Then if I am able to bypass that using only the Open and Close statements then I should be able to get past it, no sweat. Also then the modifications then should also then be adapted to the PHP Script, which I am also going to upload to the Thread, in a future Post. When I begin work tomorrow, seeing that yes it's Mother's Day in Perth, WA. So then I must have a break sometime of the year. Now shouldn't I???

!! Thanks in advance !!

[ladoo]

well a user member name jmsrickland u might want to site pm him then get him to come to your thread because he has done this before mate i seen it not sure were the post is but still he can help u quick solve ur prob

[ThEiMp]

!! Thanks for the Input$ !!

[ThEiMp]

I have then been able to make the source code using the tutorials that I have found on the Internet, using the Yahoo! Australia's Search Engine. So then I am still going to keep this Thread alive, when I will begin the testing of the source code. However the tutorial is very old, that I maybe requried to make some changes to the information inside of it. Cause it is about atleast ten years old. And then for some reason there is a PHP Server Side Console and a Client Side Visual Basic script, too. It is meant to be uploaded to the Website, that you are going to upload infomation to. That PHP type of upload Consolem, is three years old. So then I am now going to use it in the OCX that I am working on...

[jmsrickland]

You can only upload files. You would have to create the folders you need on the server then upload your files to those folders. Using Inet is an easy way to do this. If you have a PHP to do this then use that.

[DataMiser]

FTP would be the most common way to do this. It will allow you to create folders and upload files provided your server supports it.

[jmsrickland]

That's what I meant when I was suggesting Inet which you use FTP commands with that would be the only way to use Inet

[DataMiser]

I have a pretty good 3rd party FTP control that I use when needed. I did look into the Inet control first but there was some reason that it did not meet my needs.

[jmsrickland]

How about ftp.exe? It would have to be shelled with piping

[ThEiMp]

Could you please show some source code on how to upload the files and also to create the folders, on a remote Internet Hosting Server??? I am really stumped, I have got it really stuffed. Also I have to make a Folder, using the Folder's name which is the Default Gateway of the Machine that you are creating the Account with...

[DataMiser]

You need to decide which method you want to use. If you opt for the command line FTP then you can simply open a command prompt on your pc then type FTP then when you get the FTP prompt type ? for a list of available commands

for example mdir is used to make a directory, put is used to upload, get is used to download. If I were to go that route I would create a little batch file with the commands I want to execute and call that batch file from VB via shell

I use Dart FTP which has several nice features so if you have access to it you may want to try that if not then you could look for examples of using FTP via Inet control.

[jmsrickland]

Also, CuteFTP is good. I use that for most of my site upgrading. It's not free but you can download it and use it free for quite a while until you are prompted to buy it or don't use it any more.

For absolutely no charge then I suggest Window's FTP.exe and use batch file as DM suggested. FTP commands are straight forward and with the ? you get a comprehensive help list of how to use the commands.

Lastely, I would use Inet. Although it is easy it does require you getting used to coding for it but there are many examples around here as I myself have uploaded a few examples in threads.

[DataMiser]

I have Cute FTP as well and I use that for my web sites and such. The Dart FTP is an OCX control that allows you to do quite a bit through VB code and includes a sample FTP program that has several features with source of course.
Years ago I wrote a program that would auto update a web site via FTP without the end user knowing the login info which is what I bought the Dart control for. Used it in a couple of other projects as well as the Dart HTTP control

[dilettante]

How about ftp.exe? It would have to be shelled with piping

Not an option since ftp.exe (the one supplied with Windows) does not use StdIO streams so there is nothing to redirect to pipes.

However you might find a 3rd party FTP client that can do this. I used to use a free one from Standard Networks. They still have a download page MOVEit Freely Download with working download links but the page is "rotting away" (broken images) so it might be gone soon. That one supports StdIO redirection.


If you can get away with "flying blind" you can create a session script file for Windows' ftp.exe and Shell a run of that. There's no feedback to your program however so one false step (wrong PW?) and things fall over or hang.

[jmsrickland]

@dili

Yes, I know that (after I made the post) so in post #15 I corrected myself, 2nd paragraph

[ThEiMp]

!! Thanks for the Input$ !!

[ThEiMp]

So sorry to bother you guys again, but then I have found some source code that works like this:
Please note that I have hard coded some of the Properties Window at Design Time, therefore I won't be required to write that information inside the Code Window. Just thinking about that infromation, because of the fact that it doesn't change and then I just inputed it into the Properties Window, instead...

With frmSettings.Inet
    .Protocol = icFTP
    .Execute .Url, "PUT = c:\temp\project1\usernames\" & Combo1.Text & "\" & txtGateWay.Text & "\" & txtUsername.Text
  
    While .StillExecuting
        DoEvents
    Wend
        
   .Execute , "CLOSE"
End With

    frmSettings.labLabel.Caption = "!! Internet FTP Transfer completed !!"

[ThEiMp]

I just worked it out that I'm not sending anything in the Put command!!

[Rattled_Cage]

a guess !

Inet.Execute , "PUT " c:\temp\project1\usernames\" & Combo1.Text & "\" & txtGateWay.Text & " " & txtUsername.Text
or
Inet.Execute , "PUT " c:\temp\project1\usernames\" & Combo1.Text & "\" & txtGateWay.Text & Chr$(34) & txtUsername.Text

[jmsrickland]

  '
  '
 LocalPath = Chr(34) & "c:\.....\.....\.....\filename" & Chr(34)
 
 RemotePath = Chr(34) & "/..../..../filename" & Chr(34)
 
 With Inet1
   .AccessType = icDirect
   .Protocol = icFTP
   
   .UserName = "username"
   .Password = "password"
   .RemoteHost = "www.website.com"
   
   .Execute .URL, "PUT " & LocalPath & " " & RemotePath
  
   While .StillExecuting
     DoEvents
   Wend
        
   .Execute , "CLOSE"
 End With
  '
  '

[ThEiMp]

This is what my Handler named: cmdUpload_Click(() looks like when inside the Project1. Also when trying to finish off the execution of the data inside this Handler, at RunTime and also CompileTime, it hangs until the ActiveX Control Object hangs and crashes the Webpage Document. That is the type of Project that I'm using for this project of mine. It's a Web Cloud Application. The app is totally online and then the Documents, etc are on our Local or Network disk, of your system/network. I won't be keeping any kind of data of the end-user's online, for any period of time. Other than a Webpage Domian that is being hosted by my Server, but then that is in the future, of course...

Public Sub cmdUpload_Click()
On Error Resume Next

InitLUT

Dim Item1 As String
Dim Item2 As String
Dim Item3 As String
Dim Item4 As String
Dim Item5 As String
Dim bAry() As Byte
Dim LocalPath1 As String
Dim LocalPath2 As String
Dim LocalPath3 As String
Dim RemotePath1 As String
Dim RemotePath2 As String
Dim RemotePath3 As String

With frmSettings
    LocalPath1 = Chr(34) & "c:\temp\project1\usernames\" & .Combo1.Text & "\" & .txtGateWay.Text & "\" & .txtUsername.Text & "\" & .txtUsername.Text & ".txt"
    LocalPath2 = Chr(34) & "c:\temp\project1\usernames\" & .Combo1.Text & "\" & .txtGateWay.Text & "\" & .txtUsername.Text & "\address book.txt"
    LocalPath3 = Chr(34) & "c:\temp\project1\usernames\" & .Combo1.Text & "\" & .txtGateWay.Text & "\" & .txtUsername.Text & "\dbase.txt"

    RemotePath1 = Chr(34) & "http://www.theimp.zxq.net/usernames" & .Combo1.Text & "/" & .txtGateWay.Text & "/" & .txtUsername.Text & "/" & .txtUsername.Text & ".txt" & Chr(34)
    RemotePath2 = Chr(34) & "http://www.theimp.zxq.net/usernames" & .Combo1.Text & "/" & .txtGateWay.Text & "/" & .txtUsername.Text & "/address book.txt" & Chr(34)
    RemotePath3 = Chr(34) & "http://www.theimp.zxq.net/usernames" & .Combo1.Text & "/" & .txtGateWay.Text & "/" & .txtUsername.Text & "/dbase.txt" & Chr(34)
    
    Item1 = .txtPassword.Text & vbCrLf & .Combo1.Text & vbCrLf & .txtEmail.Text & vbCrLf & Time & " " & Date & vbCrLf & .txtDOB.Text & vbCrLf & .txtWork.Text & vbCrLf & .txtType.Text & vbCrLf & .txtHeld.Text
    Item2 = .picProfile.Picture
    Item3 = "Your Contact List..."
    Item4 = "Likes and Dislikes of Apps, Ads and so on..."
    Item5 = "Your Apps, that you use on the Windows Network..."

    If .Combo1.Text <> "" And .txtFirst.Text <> "" And .txtSurname.Text <> "" And .txtDate.Text <> "" And .txtDOB.Text <> "" And .txtEmail.Text <> "" And .txtHeld.Text <> "" And .txtPassword.Text <> "" And .txtType.Text <> "" And .txtUsername.Text <> "" And .txtWork.Text <> "" Then
        Call FXInCipher(Item1 & vbCrLf & "[BITMAP]" & vbCrLf & Item2 & vbCrLf & "[/BITMAP]" & vbCrLf & Item3 & vbCrLf & Item4 & vbCrLf & Item5, bAry)

        Open "c:\temp\project1\usernames\" & Combo1.Text & "\" & txtGateWay.Text & "\" & txtUsername.Text & "\" & .txtUsername.Text & ".txt" For Binary As #1
            Put 1, 1, bAry
        Close #1
    Else
        .labLabel.Caption = "Not all of the data information has been totally completed. Can you please complete the Form, so that you can then carry on with the account's Sign Up process???"
    End If

    .Inet.Execute .Inet.Url, "PUT " & LocalPath1 & " " & RemotePath1
    .Inet.Execute .Inet.Url, "PUT " & LocalPath2 & " " & RemotePath2
    .Inet.Execute .Inet.Url, "PUT " & LocalPath3 & " " & RemotePath3
    .Inet.Execute "ftp://www.theimp.zxq.net/", "CD ftp://www.theimp.zxq.net/" & .Combo1.Text & "/" & .txtGateWay.Text & "/" & .txtUsername.Text & "/attachments"
    .Inet.Execute "ftp://www.theimp.zxq.net/", "CD ftp://www.theimp.zxq.net/" & .Combo1.Text & "/" & .txtGateWay.Text & "/" & .txtUsername.Text & "/data"
    .Inet.Execute "ftp://www.theimp.zxq.net/", "CD ftp://www.theimp.zxq.net/" & .Combo1.Text & "/" & .txtGateWay.Text & "/" & .txtUsername.Text & "/photos"
    .Inet.Execute "ftp://www.theimp.zxq.net/", "CD ftp://www.theimp.zxq.net/" & .Combo1.Text & "/" & .txtGateWay.Text & "/" & .txtUsername.Text & "/threads"
    .Inet.Execute "ftp://www.theimp.zxq.net/", "CD ftp://www.theimp.zxq.net/" & .Combo1.Text & "/" & .txtGateWay.Text & "/" & .txtUsername.Text & "/videos"
    .Inet.Execute "ftp://www.theimp.zxq.net/", "CD ftp://www.theimp.zxq.net/" & .Combo1.Text & "/" & .txtGateWay.Text & "/" & .txtUsername.Text & "/audio"
    .Inet.Execute "ftp://www.theimp.zxq.net/", "CD ftp://www.theimp.zxq.net/" & .Combo1.Text & "/" & .txtGateWay.Text & "/" & .txtUsername.Text & "/webmail/inbox"
    .Inet.Execute "ftp://www.theimp.zxq.net/", "CD ftp://www.theimp.zxq.net/" & .Combo1.Text & "/" & .txtGateWay.Text & "/" & .txtUsername.Text & "/webmail/outbox"
    .Inet.Execute "ftp://www.theimp.zxq.net/", "CD ftp://www.theimp.zxq.net/" & .Combo1.Text & "/" & .txtGateWay.Text & "/" & .txtUsername.Text & "/webmail/spam"
    .Inet.Execute "ftp://www.theimp.zxq.net/", "CD ftp://www.theimp.zxq.net/" & .Combo1.Text & "/" & .txtGateWay.Text & "/" & .txtUsername.Text & "/webmail/drafts"
         
    While .Inet.StillExecuting
        DoEvents
    Wend
        
    .Inet.Execute , "CLOSE"
    .labLabel.Caption = "!! Internet FTP Transfer process, from this Client Console has been completed !!"
End With

    Kill ("c:\temp\project1")
    
    Unload frmSettings
End Sub

[westconn1]

personally i would use a windows shell object, this supports copying of folder and content
there are several examples in this forum if you search on shell ftp
files transfered using this method are sent asyncronously, so your next instruction will run without waiting for the file transfer to complete, unless you loop to wait for transfer to complete

[ThEiMp]

That really sounds great, but then I have then just worked out the second lof of source code, using the FTP Uploader. +< Sorry, for that...