Dim ftp1 As new ftpclientftp1.host="128.169.143.96"ftp1.Account = "foxuser"ftp1.password = "136137138"If ftp1.DirectoryExists("/data") = False Then '如果不存在Data目录 ftp1.MakeDir("/data") '则创建Data目录End Ifftp1.upload("c:\data","/data",False)
这样试试,不知道能不能将整个上传,没有试过.