试试
msgbox(ftp1.DirExists("/个人工作目录"))msgbox(ftp1.DirExists("/个人工作目录/XDZ"))If ftp1.MakeDir("/个人工作目录/XDZ/12345") Then Messagebox.Show("创建目录成功!")Else Messagebox.Show("创建目录失败!")End If