Click here to Skip to main content
15,917,329 members

Comments by ravi kumar86 (Top 27 by date)

ravi kumar86 19-Sep-13 2:48am View    
not work properly
ravi kumar86 16-May-13 7:23am View    
I have already build proxy server and it works properly,but i want to work like the above example ,which given link


Thank You for your valuable suggestion but i want to prefer to learn this technology.
ravi kumar86 19-Apr-13 7:16am View    
thanks your suggestion is valuable , I have solve this problem
ravi kumar86 21-Dec-12 2:51am View    
AddDirectorySecurity(dt1.Rows(i)("FullPath"), WindowsIdentity.GetCurrent().Name, FileSystemRights.Delete, AccessControlType.Deny)
AddDirectorySecurity(dt1.Rows(i)("FullPath"), WindowsIdentity.GetCurrent().Name, FileSystemRights.DeleteSubdirectoriesAndFiles, AccessControlType.Deny)
AddDirectorySecurity(dt1.Rows(i)("FullPath"), WindowsIdentity.GetCurrent().Name, FileSystemRights.Write, AccessControlType.Deny)




Sub AddDirectorySecurity(ByVal FileName As String, ByVal Account As String, ByVal Rights As FileSystemRights, ByVal ControlType As AccessControlType)
Dim dInfo As New DirectoryInfo(FileName)
Dim dSecurity As DirectorySecurity = dInfo.GetAccessControl()
dSecurity.AddAccessRule(New FileSystemAccessRule(Account, FileSystemRights:=Rights, InheritanceFlags:=InheritanceFlags.ContainerInherit Or InheritanceFlags.ObjectInherit, PropagationFlags:=PropagationFlags.InheritOnly, Type:=ControlType))
If ControlType = AccessControlType.Deny Then
dSecurity.SetAccessRuleProtection(True, False)
Else
dSecurity.SetAccessRuleProtection(False, True)
End If
Directory.SetAccessControl(FileName, dSecurity)
End Sub
ravi kumar86 21-Dec-12 2:48am View    
ihave attached a soft link and , what i have done in my code but it is not so effective as the software work suggest above link. so please tell me how can i achive it?