主题：ftp上传问题

1、Upload是上传文件，不是上传目录

2、Ftp的路径不会是“g:\ABC\”，不会有盘符，一般是“/abc”

3、这个目录可能有隐藏文件，或出现你贴图所示的错误。

在c:\data\没有隐藏文件的情况下，下面的代码通过测试：

Dim ftp1 As New FtpClient
Dim cg As Boolean = True
ftp1.Host="125.77.199.99"
ftp1.Account = " 你的账户"
ftp1.Password = "你的密码"
For Each file As String In filesys.GetFiles("c:\data")
    If ftp1.Upload(file,"/data/" & filesys.GetName(file)) = False
        cg = False
        Exit For
    End If
Next
If cg  Then
    messagebox.show("上传成功")
Else
    messagebox.show("上传失败")
End If

例如，我要根据今天的日期创建一个目录

Dim ftp1 As New FtpClient

Dim pth As String = "\" & Format(Date.Today,"yyyyMMdd")
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.MakeDir(pth) Then
     Messagebox.Show("创建目录成功!")
Else
     Messagebox.Show("创建目录失败!")
End If