以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  FTP创建目录同时，即能对建立的目录设置权限  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=164251)
--  作者：fytea
--  发布时间：2021/5/1 14:13:00
--  FTP创建目录同时，即能对建立的目录设置权限
用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编辑过]
--  作者：有点蓝
--  发布时间：2021/5/5 9:30:00
--  

BeforeEnterFolder 事件


If e.FolderName & "/" like "/" & _username & "/*"  Then
else
        e.Cancel = True
        MessageBox.Show("你无访问此目录的权限!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If