Foxtable(狐表)用户栏目专家坐堂 → FTP创建目录同时,即能对建立的目录设置权限


  共有3209人关注过本帖树形打印复制链接

主题:FTP创建目录同时,即能对建立的目录设置权限

帅哥哟,离线,有人找我吗?
fytea
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:787 积分:6175 威望:0 精华:0 注册:2015/7/25 19:14:00
FTP创建目录同时,即能对建立的目录设置权限  发帖心情 Post By:2021/5/1 14:13:00 [只看该作者]

用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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部