mettre en lecture seul dossier et fichierRésolu

Question

Bonjour je pense ne pas avoir mi mon autre message au bonne endroit
alors je vais le mettre ici puisque je suis pas mal d&#233;sesp&#233;r&#233; :p



&#233;tant un d&#233;butant en programmation jarrive pas a trouv&#233; comment faire
pour mettre  un dossier et ses fichier/sous dossier en lecture
seule,



j'offre ma gratitude &#233;ternel a celui qui arrivera a me sortir du p&#233;trin :p



merci d'avance

sylbar

Gobillot · Accepted Answer

il doit y avoir des dossiers avec attribut caché ou systéme ??? Private Sub SetAttributs(dossier As String) Dim i As Integer Dim nb As Integer Dim Table() As String Dim fichier As String nb = 1 ReDim Table(1) Table(1) = dossier While i < nb i = i + 1 dossier = Table(i) If Left$(dossier, 1) <> "" Then dossier = dossier & "" fichier = Dir(dossier & "*.*", vbDirectory Or vbHidden Or vbSystem) Do Until fichier = "" If Asc(fichier) <> 46 Then If (GetAttr(dossier & fichier) And &H10) = vbDirectory Then nb = nb + 1 ReDim Preserve Table(nb) Table(nb) = dossier & fichier Else SetAttr dossier & fichier, vbReadOnly End If End If fichier = Dir() Loop Wend End Sub Private Sub Form_Load() SetAttributs Command$ End Sub Daniel

Gobillot · Answer

SetAttr chemin, vbReadOnly

Daniel

sylbar84 · Answer

oki mais le probl&#232;me c'est qu'il ne mettra que "chemin" en lecture
seule et moi je dois aussi mettre tout ce qu'il contien en lecture
seule ( dossier sous dossier ficher etc)

Gobillot · Answer

Private Sub SetAttributs(dossier As String) Dim i As Integer Dim nb As Integer Dim Table() As String Dim fichier As String nb = 1 ReDim Preserve Table(1) Table(1) = dossier While i < nb i = i + 1 dossier = Table(i) If Left$(dossier, 1) <> "" Then dossier = dossier & "" fichier = Dir(dossier & "*.*", vbDirectory) Do Until fichier = "" If Asc(fichier) <> 46 Then If GetAttr(dossier & fichier) = vbDirectory Then nb = nb + 1 ReDim Preserve Table(nb) Table(nb) = dossier & fichier Else SetAttr dossier & fichier, vbReadOnly End If End If fichier = Dir() Loop Wend End Sub Daniel

sylbar84 · Answer

oki je remplace Dossier par  c:	est  je suppose

Gobillot · Answer

exact, tu apelles la fonction par:
SetAttributs "c:	est "

Daniel

sylbar84 · Answer

non en faite je passe le chemin en param&#232;rtre dans mon programme  

SetAttributs ("c:\Formulaire")

il rentre dans la fonctions mais les fichers et tout sont  toujours pas en lecture seule :-/

sylbar84 · Answer

en fesant du pas a pas jai remarqu&#233; qu'il n'allais pas plus loin que la premiere couche

c:\formulaire\.....   meme si il reste de dossier ensuite il ne se rend pas a l'int&#233;rieure de ceux ci

sylbar84 · Answer

non  c'est simplement des dossier contenant des fichier excel rien de syst&#232;me ou de fichier cach&#233;

sylbar84 · Answer

avec le nouveau code  ya une erreur a cette ligne

 If (GetAttr(dossier & fichier) And &H10) = vbDirectory



invalide provedure call or argument

Gobillot · Answer

&#231;a doit &#234;tre &#224; cause de la ligne   SetAttributs Command$
c'est ce qui r&#233;cup&#232;re le param&#232;tre pass&#233; au programme mais au d&#233;part Command$ est vide et j'ai pas mis de routine d'erreur.
enl&#232;ve le et lance la proc&#233;dure avec un bouton:

Private Sub Command1_Click()
    SetAttributs "C:\formulaire"
End Sub

Daniel

sylbar84 · Answer

voila sa marche nickel

 *s'incline a ses pieds* un grand merci a toi :)

Gobillot · Answer

n'oublie pas de cocher r&#233;ponse accept&#233;e et va voir dans ta bo&#238;te.

Daniel

Mettre en lecture seul dossier et fichier

13 réponses

Discussions similaires