droit d'accé fichierRésolu

Question

salut tout le monde

je souhaite dévelloppé une fonction qui retourne un booléan true si le fichier est en lecture et ecriture false s'il est en lecture seul.voici ma fonction:

Public Function droit_accee(ByVal fichier As String)
        Dim Fa As FileAttributes = File.GetAttributes(fichier)
        ' Vérification si le fichier est en lecture seule
        If (Fa And FileAttributes.ReadOnly) = FileAttributes.ReadOnly Then
            Return False
        Else
            Return True
        End If
 
    End Function

mais elle retourne toujour true

merci d'avance

cs_ShayW · Accepted Answer

Salut

Public Function droit_accee(ByVal fichier As String) As String
        Dim di As New IO.FileInfo(fichier)
        If di.IsReadOnly Then

            Return "read only"
        Else
            Return "not read only"
        End If

    End Function

ayarikhaoula · Answer

salut merci pour ta réponse 
je teste ta solution avec un fichier dll sous le systeme32 et une session non administrateur mais il retourne not readonly, ce qui n'est pas le cas.

cs_ShayW · Answer

mais il retourne not readonly

Les propriétés du dll le checkbox du readonly
est coché ?

ayarikhaoula · Answer

salut ShayW l'accé au dll est :lecture et execution et lecture.

cs_ShayW · Answer

c'est bizarre j'ai testé avec un dll readonly
et j'ai le message readonly

ayarikhaoula · Answer

pardon pour ma question qui me semble très stupide:coment tu vérifier que c'est redonly?
moi je clique droit sur la dll et puis propriété puis sécurité ,c'est pas comme sa?

cs_ShayW · Answer

avec le windowxp en anglais
clique droit sur le fichier 
choisir properties (proprieté)

en bas tu as deux checkbox readonly et hidden
modifie en cochant le checkbox

ayarikhaoula · Answer

merci beaucoup pour ton coup de main.
allé bon continuation dans le domaine du développement.

Droit d'accé fichier

8 réponses

Votre réponse

Discussions similaires