Overblog Suivre ce blog
Editer l'article Administration Créer mon blog
22 juin 2011 3 22 /06 /juin /2011 07:53

Il existe plusieurs méthodes pour vérifier les droits d’accès en écriture d’un dossier. Mais ces méthodes ne fonctionnent pas toujours sur tous les types de lecteurs comme les lecteurs réseaux par exemple.

La méthode la plus sur pour tester les droits d’accès est de tout simplement essayer d’écrire un fichier dans le dossier et de gérer l’erreur UnauthorizedAccessException.

 

Voici un exemple de cette méthode :

 

 Public Function IsFolderHasWriteAccess(path As String) As Boolean 
 
 Try 
 Dim filePath As String = path & "writeTest.tmp" 
 Dim fs As FileStream = New FileStream(filePath, FileMode.OpenOrCreate, FileAccess.Write) 
 fs.Close() 
 
 If My.Computer.FileSystem.FileExists(filePath) Then 
 My.Computer.FileSystem.DeleteFile(filePath, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently) 
 End If 
 Return True 
 Catch ex As UnauthorizedAccessException 
 Return False 
 Catch ex As Exception 
 Return False 
 End Try 
 
 Return False 
 
 End Function 

Partager cet article

Repost 0
Published by Cyril - dans VB.NET
commenter cet article

commentaires