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