急求一个用vb写的ftp客户端代码

传送文件，用 Inet 控件

Components -> Microsoft Internet Transfer Control 6.0

Private Sub FTPTxtFile()
Dim TRANSFER_STRING As String, PutString As String
Dim lSizeOfFile As Integer
Dim sLocalDir As String
Dim ftp As String

'

sLocalDir = GetSetting(gsTitle, "Settings", "LocalDir", "c:\")
If Right$(sLocalDir, 1) <> "\" Then sLocalDir = sLocalDir & "\"

'Set up FTP Connection
Inet1.URL = "ftp://" & sEdiAddr
Inet1.UserName = sEdiUser
Inet1.Password = sEdiPass
ftp = sEdiPath & sFTPFilename
Call check_EDI_execute

Inet1.Execute , "dir *.txt"
Call check_EDI_execute

'Transfer file
TRANSFER_STRING = "PUT " & sTxtFile & " " & ftp
'Inet1.Execute , TRANSFER_STRING
'Call check_EDI_execute

Inet1.Execut