Dim
ftp1 As new ftpclient ftp1.host="128.169.143.96" ftp1.Account = "foxuser" ftp1.password = "136137138" If
ftp1.DirectoryExists("/data") = False Then '如果不存在Data目录
ftp1.MakeDir("/data")
'则创建Data目录 End
If ftp1.upload("c:\data\isam2.zip","/data/isam2.zip",true)