主题：[求助] ftp 目录删除失败

‘FTP目录删除失败，经查 是要删除的目录在使用中，不能被删除，

测试1、改变当前目录后同样不能删除，

测试2、ftp.Close 后 再连接，同样不能删除。

测试3、存在现象：设置为当前目录后，判断当前目录是否存在，提示是：不存在。

测试4、退出项目后重启项目才能被删除，请大师指点！

Dim str As DataRow = DataTables("类型").DataRows(0)  '在这个表设置ftp连接信息
Dim ftp As new ftpclient
ftp.host= str("IP")
ftp.Port= str("Port")
ftp.Account = str("Account")
ftp.password = str("Password")
ftp.MakeDir("\email\人事人员")
ftp.ChangeDir("\email\人事人员")
ftp.MakeDir("\email\医改")
ftp.ChangeDir("\email\医改")

If ftp.DirExists("\email\医改")
    MessageBox.Show("存在")
    If ftp.DeleteDir("\email\医改",True) = True
        MessageBox.Show("删除成功")
    Else
        MessageBox.Show("删除失败")
    End If
Else
    MessageBox.Show("不存在")
End If