‘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

嗯，11.11版，另：请教甜老师，窗口表加载后默认选择第一行，如何做到加载后不选择任何行？

这个意思？

CurrentTable.Select(-1,-1)