看看你有没有创建目录等权限,在管理器那里创建试试。
Dim ftp As New FTPClientftp.Host="192.168.0.209"ftp.Account = "pat"ftp.Password = "123"ftp.OpenManager