Test l'accès sur un fichier en vbnet .

Version imprimable

09/03/2011, 16h33
vbnet3

Test l'accès sur un fichier en vbnet .

comment test est ce que j'ai l’accès de modifier un fichier txt ou non ?

par ce par fois je essayer de modifier un ficher il afficher une erreur accès refuser !!

=> donc je cherche comment testé est ce je peut modifier ou non ??!!

==>> en (vbnet)
merci!!!!:ccool:

Tu peux utiliser cette classe :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Imports System.Security.Principal
Imports System.Security.AccessControl
Public Shared Class FileHelper
	Public Shared Function HasPermissionOnDirectory(ByVal path As String, ByVal permission As FileSystemRights) As Boolean
		Return HasPermission(path, permission, Directory.GetAccessControl)
	End Function
	Public Shared Function HasPermissionOnFile(ByVal path As String, ByVal permission As FileSystemRights) As Boolean
		Return HasPermission(path, permission, File.GetAccessControl)
	End Function
	Private Shared Function HasPermission(ByVal path As String, ByVal permission As FileSystemRights, ByVal fileSecurityFactory As Func(Of String, FileSystemSecurity)) As Boolean
		Try
			Dim allow As var = False
			Dim deny As var = False
			Dim accessControlList As var = fileSecurityFactory(path)
			Dim accessRules As var = accessControlList.GetAccessRules(True, True, GetType(SecurityIdentifier))
			For Each rule As FileSystemAccessRule In accessRules
				If (permission And rule.FileSystemRights) <> permission Then
					Continue
				End If
				If rule.AccessControlType = AccessControlType.Allow Then
					allow = True
ElseIf rule.AccessControlType = AccessControlType.Deny Then
					deny = True
				End If
			Next
			Return allow AndAlso Not deny
		Catch generatedExceptionName As UnauthorizedAccessException
			Return False
		End Try
	End Function
End Class

Code:

1
2
3
 
If FileHelper.HasPermissionOnFile(cheminDuFichier, FileSystemRights.Read) Then
...

c'est quoi le var

Code:

1
2
3
Dim allow As var = False
Dim deny As var = False
Dim accessControlList As var = fileSecurityFactory(path)

Citation:

Envoyé par vbnet3

c'est quoi le var

Code:

1
2
3
Dim allow As var = False
Dim deny As var = False
Dim accessControlList As var = fileSecurityFactory(path)

Oups, c'est un coup du convertisseur C#/VB.NET... il connait pas C# 3 :aie:

Voilà la même chose avec des types explicites, ce sera plus clair de toutes façons...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Imports System.Security.Principal
Imports System.Security.AccessControl
Public Shared Class FileHelper
	Public Shared Function HasPermissionOnDirectory(ByVal path As String, ByVal permission As FileSystemRights) As Boolean
		Return HasPermission(path, permission, Directory.GetAccessControl)
	End Function
	Public Shared Function HasPermissionOnFile(ByVal path As String, ByVal permission As FileSystemRights) As Boolean
		Return HasPermission(path, permission, File.GetAccessControl)
	End Function
	Private Shared Function HasPermission(ByVal path As String, ByVal permission As FileSystemRights, ByVal fileSecurityFactory As Func(Of String, FileSystemSecurity)) As Boolean
		Try
			Dim allow As Boolean = False
			Dim deny As Boolean = False
			Dim accessControlList As FileSystemSecurity = fileSecurityFactory(path)
			Dim accessRules As AuthorizationRuleCollection = accessControlList.GetAccessRules(True, True, GetType(SecurityIdentifier))
			For Each rule As FileSystemAccessRule In accessRules
				If (permission And rule.FileSystemRights) <> permission Then
					Continue
				End If
				If rule.AccessControlType = AccessControlType.Allow Then
					allow = True
ElseIf rule.AccessControlType = AccessControlType.Deny Then
					deny = True
				End If
			Next
			Return allow AndAlso Not deny
		Catch generatedExceptionName As UnauthorizedAccessException
			Return False
		End Try
	End Function
End Class

je suis entrain de tester cette classe et j'ai des erreurs que je ne comprend pas.
Code:

1 2 3 4 5 6 7 Public Shared Function HasPermissionOnDirectory(ByVal path As String, ByVal permission As FileSystemRights) As Boolean Return HasPermission(path, permission, Directory.GetAccessControl) End Function Public Shared Function HasPermissionOnFile(ByVal path As String, ByVal permission As FileSystemRights) As Boolean Return HasPermission(path, permission, File.GetAccessControl(Path)) End Function
L'erreur est sur le GetAccessControl :

Citation:

La résolution de surcharge a échoué, car aucun GetAccessControl' accessible n'accepte ce nombre d'arguments

Comment avez vous résolu le problème?
Merci

Bon, décidément ça m'apprendra à utiliser un convertisseur tout pourri sans vérifier le résultat :aie:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Public Class FileHelper
	Public Shared Function HasPermissionOnDirectory(ByVal path As String, ByVal permission As FileSystemRights) As Boolean
		Return HasPermission(path, permission, AddressOf Directory.GetAccessControl)
	End Function
	Public Shared Function HasPermissionOnFile(ByVal path As String, ByVal permission As FileSystemRights) As Boolean
		Return HasPermission(path, permission, AddressOf File.GetAccessControl)
	End Function
	Private Shared Function HasPermission(ByVal path As String, ByVal permission As FileSystemRights, ByVal fileSecurityFactory As Func(Of String, FileSystemSecurity)) As Boolean
		Try
			Dim allow As Boolean = False
			Dim deny As Boolean = False
			Dim accessControlList As FileSystemSecurity = fileSecurityFactory(path)
			Dim accessRules As AuthorizationRuleCollection = accessControlList.GetAccessRules(True, True, GetType(SecurityIdentifier))
			For Each rule As FileSystemAccessRule In accessRules
				If (permission And rule.FileSystemRights) <> permission Then
					Continue For
				End If
				If rule.AccessControlType = AccessControlType.Allow Then
					allow = True
ElseIf rule.AccessControlType = AccessControlType.Deny Then
					deny = True
				End If
			Next
			Return allow AndAlso Not deny
		Catch ex As UnauthorizedAccessException
			Return False
		End Try
	End Function
End Class

Cette fois c'est testé et ça marche ;)