在设置文件夹权限

Question

时出现错误使用vb.net设置拒绝访问特定的文件夹。我附上我的代码。但我在我的代码像串隐蔽输入长收到错误无效

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

所以etiher 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)