Discussion :

[jogu]

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 :

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

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

[jmfmarques]

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...

[jogu]

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 :

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

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

[SfJ5Rpw8]

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

[jmfmarques]

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

GetAttr et SetAttr

TU SAURAS TOUT !