[VB]problème avec DELETE

J'ai un petit programme qui lance la sauvegarde de mes dossiers contenant des programmes VB vers un disque externe(k)
1-sauvegarde sous un autre nom
2-effacement de "l'original"
3-renommer le 1
Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Set fso = CreateObject("Scripting.FileSystemObject")   dossier = Dir("c:\*", vbDirectory) Do While dossier <> "" If dossier = "agenda" Or dossier = "compta" Or dossier = "paie" Then   copier_vers = "k:\" & dossier & "bis" 'copie-sauvegarde de dossier guyagenda du disque dur vers le disque dur externe On Error GoTo fin fso.CopyFolder "c:\" & dossier, copier_vers fso.DeleteFolder "k:\" & dossier Name copier_vers As "k:\" & dossier   End If fin:   dossier = Dir Loop

---

La sauvegarde marche bien pour les 3 dossiers.
Le"delete" fontionne pour 2 dossiers sur 3 mais est refudée por le 3ème
Quelles pourraient être les raisons pour un tel refus ("permission refusée") :fichiers cachés,attributs de dossiers ...ou encore..
Merci de votre aide

Salut !

Peux-tu ouvrir les propriétés du 3ème fichier et nous faire savoir quels sont ses attributs ?

S'il s'agit d'un dichier protégé, rien d'étonnant !

Il te faudrait dans un tel cas :
1) déterminer les attributs de chaque fichier
2) oter ces attributs (autres que "normal") avant ta manipulation
3) rétablir les attributs pour les fichiers de destination

S'il s'agit enfin d'un fichier en cours d'utilisation, c'est plus embêtant...

Bien que dans les attributs -avancé- je fais afficher les fichiers éventuellement les fichiers cachés ,je me suis rendu compte qu'il manquait 5 fichiers ,cela en comparant le nombre de fichiers annoncé en passant la souris sur l'icône du dossier(dont aucun caché) et en comptant "manuellement" le nombre de ces fichiers.

En ajoutant à l'instruction DELETE ,TRUE(effacer aussi les fichiers cachés)
ça efface le dossier.

Code:

---

1 2	fso.DeleteFolder "k:\" & dossier,true

---

La question :pourquoi reste-t'il des fichiers cachés malgré la configuration des attributs ?
En tout cas merci de ton aide

et tu les configure ou les attributs ? sous l'explorateur ? .. ? pas dans la commande dir !

fais donc une petite visite dans l'aide en ligne et vois à quoi servent :

GetAttr et SetAttr

TU SAURAS TOUT !