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事件中 输入了:
Dim dr As DataRow=e.DataRow
Dim ftp1 As New FtpClient
ftp1.Host="xxx.xx.xxx.xx"
ftp1.Account = "xxxxxx"
ftp1.Password = "xxxxxxxx"
ftp1.RootDir ="\证明材料\" & dr("学校") & "\" & dr("姓名*") '设置根目录
ftp1.Changedir("\" & dr("姓名*"))
ftp1.OpenManager()
后就出现了所说的错误。所需的效果达到, 就是在打开文件关闭后,在关闭文件管理器时,提示,可以正常关掉