[VB6]attribut caché d'un fichier

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

avec SetAttr :?:

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

:) merci d'avoir regardé

Tu peux utiliser la fonction SetAttr:

Code:

---

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

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

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

Code:

---

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

---

Arff j'poste pas assez vite lol :wink: !!!

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:

---

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

---

merci encore

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

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

Code:

---

SetAttr nom_fic,vbNormal

---

il me sert à reccuperer le fichier
:D

Citation:

---

Envoyé par simpletontheweb

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

Code:

---

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

---

...

---

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