[RESOLVED] Problem with FTP

Hi,

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

Code:

---

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

Quote:

---

Originally Posted by 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

Code:

---

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

Quote:

---

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

Quote:

---

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

---

ip address, user or password

Quote:

---

Originally Posted by westconn1

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

Code:

---

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

---

Code:

---

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

Quote:

---

Originally Posted by westconn1

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"

Code:

---

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

do you need to connect?

Quote:

---

Originally Posted by westconn1

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.

Quote:

---

Originally Posted by mahesh.sanka

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"

Code:

---

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

Quote:

---

Originally Posted by jmsrickland

Use comma

---

Hi jmsrickland,

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

Code:

---


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

---

Attachment 91295

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

Code:

---

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

---

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

Code:

---

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

---

Quote:

---

Originally Posted by 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

Code:

---

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 .

Quote:

---

Originally Posted by 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.