One File, loads of lines... into a string... how hard could it be?

While one of our servers are offline... it's gives me a chance to upload some files locally.

Here's what we need...

We have a file, which contains litterally thousands of names which we need to upload to the servers VIA FTP. Each name is on a seperate line, IE.

john
craig
bob

I need a package which open's FTP to an IP, and creates separate directories called john, craig & bob respectively.

Anyone with quick idea's???

I need code BTW, i'm not expecting you code the program :)

Regards,

Paul.

P.S Brainy buffs v.welcome! :D

I took this off another thread...

Quote:

---

It's actually pretty easy - just use the Inet control. You may have to add the MS Internet Transfer Control 6.0 component to your project first though.

Just put an Inet control on your form, then put this code wherever:

---
With Inet1
.URL = "hostname or IP address"
.UserName = "user name"
.Password = "password"
.Execute , "FTP commands"
Do While .StillExecuting
DoEvents
Loop
End With
---

Your FTP commands statement should look something like this if you want to send a file:

PUT <local path+file> <remote path+file>

You may or may not not need the DoEvents command - just play around with it a bit.

---

I would guess you would create a loop to read a line from the file, and then issue the FTP command to create a folder using that name.

for example:

VB Code:

intFileNbr=FreeFile 
OPEN "names.txt" For Input As #intFileNbr
While Not EOF(intFileNbr)
Line Input #intFileNbr, strName
Inet1.Execute "md " & strName
Wend
Close intFileNbr

You lost me where it said Inet!!! :rolleyes:

Anyone care to brief me? Or shoot me... either will do fine ATM.

Regards,

Paul.

check the above [edited]

cheers m8y... just reading it now...

You're a damn fast typer :p


Regards,

Paul.

it's untested, but let me know if you get it to work, and post the code if you can, I'd like to see the finished function.
:)

i've tested it... and it doesn't work! :(

It says "invalid or unqualified reference on the "URL = " section.

Help! :D

Regards,

Paul.

this is what I would try. I get "file not found" with this exact code
(of course the file is not found!)

VB Code:

Dim intFileNbr As Integer
    Dim strName As String
    
    With Inet1
        .URL = "hostname or IP address"
        .UserName = "user name"
        .Password = "password"
 
        intFileNbr = FreeFile        
        Open "names.txt" For Input As #intFileNbr
        While Not EOF(intFileNbr)
            Line Input #intFileNbr, strName
            .Execute "mkdir " & strName
            While .StillExecuting: DoEvents: Wend
        Wend
        Close intFileNbr
    End With

It appears that you need to read some information on this subject... Just so happens that Juicy Studio:

http://www.juicystudio.com/tutorial/vb/http.html

Has a working FTP example.

Its a complete application and you can download the code from there.

Failing that..

http://www.vbip.com/winsock/winsock_ftp_client_01.asp

Has a brilliant example, although it would be more complex to understand the underlying code.

All the best.

Gav

ok, so I missed a comma... I've never worked w/ the Inet control before, but it looked simple enough :D

the code works... to an extent...

I get no errors from VB, but the directory never appears???

I'm confused...

Thanks for all your help BTW

Regards,

Paul.

hmmmm.... I'd guess the error is in the FTP command...

do a debug.print of the ftp command, and then try that string in an ftp session. might have to change directories to put it in the right place...

I dont have an ftp site to test off of, or I'd be more help

Still not working peeps...

Any other ways to connect to an FTP server and carry out the required process?

Cheers

Paul.

Have you looked at the code i told you about? Juicy Studio and VBIP?

This should give you a good grounding.

Gav

I have... and thanx for the details.

Turns-out to be a DNS fault with our ISP's... :rolleyes:

We now have the documents in TCL, and it's worked fine.

Cheers... all.

Regards,

Paul.