用ftpClient创建的目录,能否把ftp文件管理权限引入到以下代码中,或者是网络监视器下面的权限代码,引入下面的创建代码。
Dim
ftp1 As New
FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.MakeDir("\"& _username &"") Then
Messagebox.Show("创建目录成功!")
Else
Messagebox.Show("创建目录失败!")
End If
BeforeEnterFolder 事件如下,该如何改写
If e.FolderName = ""& _username &"" Then
If _Username <> e.datarow("姓名" )Then
e.Cancel = True
MessageBox.Show("你无访问此目录的权限!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If
[此贴子已经被作者于2021/5/1 15:14:33编辑过]