[2 days left] What’s wrong with your cloud strategy? Learn why multicloud solutions matter with Nimble Storage.Register Now

x
?
Solved

CONNECT FTP VIA VB6

Posted on 2003-11-05
6
Medium Priority
?
2,820 Views
Last Modified: 2013-11-13
I wanna know how i can connect automaticly on my ftp and download multiple files with VB6 ..... and what reference i need !!!

thanks sorry i dont have a lot of points anymore !!!
0
Comment
Question by:dany651
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
6 Comments
 

Author Comment

by:dany651
ID: 9687404
i have find something like that....


    frmMain.ftp.RequestTimeout = "60"
    frmMain.ftp.URL = "ftp://216.113.107.19"
    frmMain.ftp.Protocol = "2"
    frmMain.ftp.RemotePort = "21"
    frmMain.ftp.UserName = "yyy"
    frmMain.ftp.Password = "xxx"
    frmMain.ftp.Execute "cd.."
 frmMain.ftp.Execute , "GET /webroot/cdr.zip C:\temp\cdr.zip"
0
 

Author Comment

by:dany651
ID: 9687405
i have find something like that....


    frmMain.ftp.RequestTimeout = "60"
    frmMain.ftp.URL = "ftp://216.113.107.19"
    frmMain.ftp.Protocol = "2"
    frmMain.ftp.RemotePort = "21"
    frmMain.ftp.UserName = "yyy"
    frmMain.ftp.Password = "xxx"
    frmMain.ftp.Execute "cd.."
 frmMain.ftp.Execute , "GET /webroot/cdr.zip C:\temp\cdr.zip"
0
 
LVL 16

Expert Comment

by:Richie_Simonetti
ID: 9687486
ftp is the name of an Internet transfer control that you need to add to your toolbox.
0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 
LVL 9

Expert Comment

by:Dang123
ID: 9687569
These will help you with what you can add in the .Execute method.

http://www.nsftools.com/tips/RawFTP.htm

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

0
 
LVL 14

Expert Comment

by:aelatik
ID: 9687571
This will download all the files with extension .EXE from the server. You can change that ofcourse.
It is important to use the .stillexecuting event because is has to wait till the command finishes :

    Dim BUFFER() As String: Dim ITEM As Variant
    With Inet1
        .URL = "ftp://www.aclassreizen.nl"
        .UserName = "edited"
        .Password = "edited"
        .Execute , "DIR"
        While .StillExecuting: DoEvents: Wend
        BUFFER = Split(.GetChunk(1024, icString), vbCrLf)
        For Each ITEM In BUFFER
            If UCase(Right(ITEM, 4)) = ".EXE" Then
                .Execute , "GET ITEM C:\temp\" & ITEM
                While .StillExecuting: DoEvents: Wend
            End If
        Next
    End With
0
 
LVL 14

Accepted Solution

by:
aelatik earned 200 total points
ID: 9687594
Forget to mention. you nee to put the inet control on your form ( Microsoft INternet COntrols )
0

Featured Post

VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Enums (shorthand for ‘enumerations’) are not often used by programmers but they can be quite valuable when they are.  What are they? An Enum is just a type of variable like a string or an Integer, but in this case one that you create that contains…
I was working on a PowerPoint add-in the other day and a client asked me "can you implement a feature which processes a chart when it's pasted into a slide from another deck?". It got me wondering how to hook into built-in ribbon events in Office.
The goal of the video will be to teach the user the concept of local variables and scope. An example of a locally defined variable will be given as well as an explanation of what scope is in C++. The local variable and concept of scope will be relat…
The viewer will learn how to clear a vector as well as how to detect empty vectors in C++.
Suggested Courses

656 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question