[RESOLVED] Problem with FTP

[mahesh.sanka]

Hi,

I am new to FTP Concept . Last two days i have been searching on the internet about and got the following example

Dim ftp As FTPClass
Dim f As FTPFileClass
Set ftp = New FTPClass
If ftp.OpenFTP("ftp://ftp.<machine ip>", "root", "P@ssw0rd") Then
MsgBox "Connected"
If ftp.SetCurrentFolder("\temp\") Then
        MsgBox "inside second if"
         For Each f In ftp.Files
            MsgBox "inside for block"
            ftp.GetFile f.FileName, DownLoadFolder & "\" & f.FileName, True
         Next
End If
ftp.CloseFTP
Else
MsgBox "Not Connected"
End If
Set ftp = Nothing

Instead of creating an ftp server, i am treating another machine as ftp server and i am passing that machine ip. When i am running the above code i am always getting the message "Not Connected" Please guide me where i am doing . I am enclosing class files also. Port number is 20.

Thanks in Advance

[mahesh.sanka]

Hi,

I am new to FTP Concept . Last two days i have been searching on the internet about and got the following example

Dim ftp As FTPClass
Dim f As FTPFileClass
Set ftp = New FTPClass
If ftp.OpenFTP("ftp://ftp.<machine ip>", "root", "P@ssw0rd") Then
MsgBox "Connected"
If ftp.SetCurrentFolder("\temp\") Then
        MsgBox "inside second if"
         For Each f In ftp.Files
            MsgBox "inside for block"
            ftp.GetFile f.FileName, DownLoadFolder & "\" & f.FileName, True
         Next
End If
ftp.CloseFTP
Else
MsgBox "Not Connected"
End If
Set ftp = Nothing

Instead of creating an ftp server, i am treating another machine as ftp server and i am passing that machine ip. When i am running the above code i am always getting the message "Not Connected" Please guide me where i am doing . I am enclosing class files also. Port number is 20.

Thanks in Advance

The other guy has been using FileZilla and operating system is linux. In linux ftpsever comes by default. We need to install or configure any ftp server on it. So i have treated his machine as ftp server and my machine as ftpclient. Now i want to connect to it. through code

[westconn1]

When i am running the above code i am always getting the message "Not Connected"

we would have to assume that there is something wrong with your connection

If ftp.OpenFTP("ftp://ftp.<machine ip>", "root", "P@ssw0rd") Then

ip address, user or password

[mahesh.sanka]

we would have to assume that there is something wrong with your connection

ip address, user or password

Yes. I thinks so

Because when i am using INET control with the following code

Inet1.URL = "ftp://ftp.192.168.3.43"
Inet1.Username = "root"
Inet1.Password = "P@ssw0rd"
Inet1.Execute , "DIR"

Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim data As String
Dim data1 As String

    Select Case State
      Case icError
         MsgBox Inet1.ResponseInfo, , "File failed to transfer"
      Case icResolvingHost
         Label6.Caption = "Resolving Host"
      Case icHostResolved
          Label6.Caption = "Host Resolved"
      Case icConnecting
          Label6.Caption = "Connecting Host"
      Case icConnected
          Label6.Caption = "Host connected"
      Case icReceivingResponse
          Label6.Caption = "Receiving Response"
      Case icResponseReceived
          Label6.Caption = "Got Response"
      Case icResponseCompleted
          MsgBox "Transfer Completed"
        Do
            data1 = Inet1.GetChunk(1024, icString)
            data = data & data1
            Loop While Len(data1) <> 0
            Text6.Text = data
        End Select
End Sub

I am getting following error

Unable to connect to remote host

[mahesh.sanka]

we would have to assume that there is something wrong with your connection

ip address, user or password

Hi westconn,

When i am using the following code , still i am getting the following error Run time error 35754
"Unable Connect to Remote Host"

Inet1.URL = "ftp://ftp.microsoft.com"
Inet1.Username = "anonymous"
Inet1.Password = ""
Inet1.Execute "DIR"

where every thing is correct.

Do i need to make any changes in the above code

[westconn1]

do you need to connect?

[mahesh.sanka]

do you need to connect?

Hi Westconn,

Thanks for your reply

Actually I am trying to extract the directories in that server . So when i use above command . error is coming.

[jmsrickland]

Hi westconn,

When i am using the following code , still i am getting the following error Run time error 35754
"Unable Connect to Remote Host"

Inet1.URL = "ftp://ftp.microsoft.com"
Inet1.Username = "anonymous"
Inet1.Password = ""
Inet1.Execute , "DIR"
              |
              |
              X

where every thing is correct.

Do i need to make any changes in the above code

Use comma

[mahesh.sanka]

Use comma

Hi jmsrickland,

Thanks for your reply. As per your suggestion i have used the comma, still i am facing the same problem

 
Inet1.URL = "ftp://ftp.microsoft.com"
Inet1.Username = "anonymous"
Inet1.Password = ""
Inet1.Execute , "DIR"

[jmsrickland]

Then you are having a problem that lies outside of your code. I copied your code exactly as is from post 5 and of course I had same problem you did. When I added the comma it worked perfectly; It made the connection. Are you sure you are even connected to the internet? Maybe a firewall issue? Something else we don't know about?

Try below code. I copied it from Microsoft and it works perfectly

Private Sub Command1_Click()
 Inet1.URL = "ftp://ftp.microsoft.com"
 Inet1.UserName = "anonymous"
 Inet1.Password = ""
 Inet1.Execute , "DIR"
End Sub

Private Sub inet1_StateChanged(ByVal State As Integer)
 Dim vtData As Variant ' Data variable.
 
 Select Case State
   ' ... Other cases not shown.
   Case icError ' 11
     ' In case of error, return ResponseCode and

     ' ResponseInfo.
     vtData = Inet1.ResponseCode & ":" & _
     Inet1.ResponseInfo

   Case icResponseCompleted  ' 12
     Dim strData As String: strData = ""
     Dim bDone As Boolean: bDone = False

     ' Get first chunk.
     vtData = Inet1.GetChunk(1024, icString)
     DoEvents

     Do While Not bDone
       strData = strData & vtData
       ' Get next chunk.
       vtData = Inet1.GetChunk(1024, icString)
       DoEvents

       If Len(vtData) = 0 Then
         bDone = True
       End If
     Loop

     MsgBox strData
 End Select
End Sub

[jmsrickland]

Then you are having a problem that lies outside of your code. I copied your code exactly as is from post 5 and of course I had same problem you did. When I added the comma it worked perfectly; It made the connection. Are you sure you are even connected to the internet? Maybe a firewall issue? Something else we don't know about?

Try below code. I copied it from Microsoft and it works perfectly

Private Sub Command1_Click()
 Inet1.URL = "ftp://ftp.microsoft.com"
 Inet1.UserName = "anonymous"
 Inet1.Password = ""
 Inet1.Execute , "DIR"
End Sub

Private Sub inet1_StateChanged(ByVal State As Integer)
 Dim vtData As Variant ' Data variable.
 
 Select Case State
   ' ... Other cases not shown.
   Case icError ' 11
     ' In case of error, return ResponseCode and

     ' ResponseInfo.
     vtData = Inet1.ResponseCode & ":" & _
     Inet1.ResponseInfo

   Case icResponseCompleted  ' 12
     Dim strData As String: strData = ""
     Dim bDone As Boolean: bDone = False

     ' Get first chunk.
     vtData = Inet1.GetChunk(1024, icString)
     DoEvents

     Do While Not bDone
       strData = strData & vtData
       ' Get next chunk.
       vtData = Inet1.GetChunk(1024, icString)
       DoEvents

       If Len(vtData) = 0 Then
         bDone = True
       End If
     Loop

     MsgBox strData
 End Select
End Sub

[mahesh.sanka]

Then you are having a problem that lies outside of your code. I copied your code exactly as is from post 5 and of course I had same problem you did. When I added the comma it worked perfectly; It made the connection. Are you sure you are even connected to the internet? Maybe a firewall issue? Something else we don't know about?

Try below code. I copied it from Microsoft and it works perfectly

Private Sub Command1_Click()
 Inet1.URL = "ftp://ftp.microsoft.com"
 Inet1.UserName = "anonymous"
 Inet1.Password = ""
 Inet1.Execute , "DIR"
End Sub

Private Sub inet1_StateChanged(ByVal State As Integer)
 Dim vtData As Variant ' Data variable.
 
 Select Case State
   ' ... Other cases not shown.
   Case icError ' 11
     ' In case of error, return ResponseCode and

     ' ResponseInfo.
     vtData = Inet1.ResponseCode & ":" & _
     Inet1.ResponseInfo

   Case icResponseCompleted  ' 12
     Dim strData As String: strData = ""
     Dim bDone As Boolean: bDone = False

     ' Get first chunk.
     vtData = Inet1.GetChunk(1024, icString)
     DoEvents

     Do While Not bDone
       strData = strData & vtData
       ' Get next chunk.
       vtData = Inet1.GetChunk(1024, icString)
       DoEvents

       If Len(vtData) = 0 Then
         bDone = True
       End If
     Loop

     MsgBox strData
 End Select
End Sub

Thanks for your reply.
I will work on this regard and will check my LAN Settings if any thing is getting blocked or firewall .

[mahesh.sanka]

Thanks for your reply.
I will work on this regard and will check my LAN Settings if any thing is getting blocked or firewall .

Hi jmsrickland,

Thanks my problem has been solved. This is because of proxy settings.