Question

使用vb.net设置拒绝访问特定文件夹。我附上了我的代码。但我的代码中出现错误，例如从字符串转换为long类型无效

code
-----
           Dim ds1 As New TdeskTableAdapters.proc_checkuserrightsTableAdapter
            Dim dt1 As Tdesk.proc_checkuserrightsDataTable = ds1.GetData(ecode)

            For Each r1 As DataRow In dt1.Rows
                reqrights = r1("fld_reqrights").ToString
                approv_rights = r1("fld_approval").ToString
            Next

            If approv_rights = "n" Or approv_rights = "N" Then


                Dim FolderPath As String = "D:\Account\HA\" 'Specify the folder here

                Dim UserAccount As String = mailid \ pwd

                Dim FolderInfo As IO.DirectoryInfo = New IO.DirectoryInfo(FolderPath)
                Dim FolderAcl As New DirectorySecurity
                FolderAcl.AddAccessRule(New FileSystemAccessRule(UserAccount, FileSystemRights.FullControl, InheritanceFlags.ContainerInherit Or InheritanceFlags.ObjectInherit, PropagationFlags.None, AccessControlType.Deny))
                'FolderAcl.SetAccessRuleProtection(True, False) 'uncomment to remove existing permissions
                FolderInfo.SetAccessControl(FolderAcl)

            End If


 getting error in this line 

 Dim UserAccount As String = mailid \ pwd error mentioned in the above

Answer 1

因此mailid或pwd是Long而另一个是String。

我认为mailid是Long：

Dim UserAccount As String = mailid.ToString() & "\" & pwd

但是如果你使用&来连接字符串，你也可以省略ToString。

另一种可读方式是使用String.Format，它也会隐含地转换为字符串：

Dim UserAccount As String = String.Format("{0}\{1}", mailid, pwd)

设置文件夹权限时出错

1 个答案: