Discussion :

[simpletontheweb]

Bonjour,
j'aimerai savoir s'il est possible de retirer l'attribut caché d'un fichier quand on reccupere ce fichier par l'intermediaire d'une boucle avec dir.

J'y arrive bien avec les autres attribut mais pas celui la (c'est plustôt normal d'ailleur)

merci de vos réponses

[bidou]

avec SetAttr :

[simpletontheweb]

le probleme vient pas de
setattr
mais du fait fait que mon dir ne lit pa les fichiers

merci d'avoir regardé

[Ace303]

Tu peux utiliser la fonction SetAttr:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SetAttr "c:\monfichier.ext", vbNormal

Constante Valeur Description
vbNormal 0 Normal (valeur par défaut)
vbReadOnly 1 Lecture seule
vbHidden 2 Caché
vbSystem 4 Fichier système.
vbArchive 32 Fichier modifié depuis la dernière sauvegarde

[bidou]

ah ok
MyFile = Dir("*.TXT", vbHidden And vbNormal)

[Ace303]

Tu peux faire un DIR avec l'attribut vbHidden pour afficher tous les fichiers cachés:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MyFile = Dir("*.TXT", vbHidden)

[Ace303]

Arff j'poste pas assez vite lol !!!

[simpletontheweb]

bidou a bien compris le truc que je veux faire mais une petite nuance:
je veux pouvoir mettre tout le contenu d'un repertoire sans attribut
donc je tape

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
toto = Dir(Text1.Text + "/*.*", vbHidden OR vbNormal)

merci encore

[Sebounet19]

Dir est juste pour récupérer le contenu d'un repertoire pas pour modifier les attributs !?!

[simpletontheweb]

si c'est une question, la réponse est oui.
mais pour utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SetAttr nom_fic,vbNormal

il me sert à reccuperer le fichier

[Sebounet19]

...
je veux pouvoir mettre tout le contenu d'un repertoire sans attribut
donc je tape

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
toto = Dir(Text1.Text + "/*.*", vbHidden OR vbNormal)

...

Ok, c'est juste ta dernière reponse qui était ambigue