[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