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 :
La sauvegarde marche bien pour les 3 dossiers.
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
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
Partager