主题：关闭FTP文件管理器时出现的错误提示

Dim dr As DataRow=e.DataRow

Dim ftp1 As New FtpClient

ftp1.Host="xxx.xx.xxx.xx"

ftp1.Account = "xxxxxx"

ftp1.Password = "xxxxxxxxx"

If ftp1.DirExists("\证明材料\" & dr("学校") & "\" & dr("姓名*") ) = False Then

    Dim Result As DialogResult

    Result = messagebox.Show("您的用户目录没有建立,当前建立吗?","提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Information)

    If Result = DialogResult.cancel Then

        MessageBox.Show("好好学习吧,你会认同这个看法的.","提示")

        Return

    Else

        If ftp1.MakeDir("\证明材料\" & dr("学校") & "\" & dr("姓名*") ) = False Then

            Messagebox.Show("创建用户FTP目录失败!")

            Return

        Else

            Messagebox.Show("创建用户FTP目录成功!")

            ftp1.Changedir("\证明材料\" & dr("学校") & "\" & dr("姓名*") ) 

         End If

    End If

End If

ftp1.RootDir ="\证明材料\" & dr("学校") & "\" & dr("姓名*")   '设置根目录

ftp1.Changedir("\" & dr("姓名*")) 

ftp1.OpenManager()

在beforeopenfile事件中 输入了: