[VB6] CopyFolder : erreur -> permission refusée

**Asdorve** · 30/08/2006, 14h33

Bonjour,
je suis en train de coder une petite routine qui est censé copier mes codes sources dans le dossier VB98 et les coller sur un serveur de sauvegarde.
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
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub Form_Load()

MsgBox "Sauvegarde des fichiers sources vb sur Linux 101"
copier

End Sub

Private Sub copier()

On Error GoTo erreur

Set fs = CreateObject("Scripting.FileSystemObject")
Set Monrep = fs.getfolder("C:\Program Files\Microsoft Visual Studio\VB98")
Set ListeSousRep = Monrep.subfolders

Original = "C:\Program Files\Microsoft Visual Studio\VB98\"
Destination = "\\Linux101\bureautique\Applications\Code\"

For Each rep In ListeSousRep
     nom = rep.Name
     fs.CopyFolder Original & nom, Destination & nom
Next

MsgBox "Sauvegarde effectuée."
Exit Sub

erreur:
    MsgBox "Erreur lors de la sauvegarde: " & Err.Description

End Sub

Dès le premier passage sur la ligne en rouge, erreur: Permission refusée.

ça vient de quoi, sachant que je peux copier/coller les dossier sur ce serveur à la main?

Merci d'avance.

EDIT: il apparait qu'il y a erreur lorsque je copie des fichiers en lecture seule.
Comment faire pour forcer la copie de ces fichiers ou les ignorer?

**jmfmarques** · 30/08/2006, 14h49

Ne le fais pas avec FileSystemObject
Il y a d'autres méthodes, plus sûres, qui vont, au besoin, lire les attributs et les gérer en conséquence.
Cà parait plus "lourd" mais c'est efficace.
Si tu veux, tu dis...

**Asdorve** · 30/08/2006, 14h50

Tu parles de l'API CopyFIle?

Si oui, je suis pas arrivé à l'utiliser.

**jmfmarques** · 30/08/2006, 14h55

Non, je parle de l'Api Windows... fonctions conjuguées :
FindFirstFile
GetFileAttributes
FindNextFile
FindClose
SetFileAttributes
le tout en récursivité

**Asdorve** · 30/08/2006, 14h56

je les connais pas ceux là
Je m'y penche dessus (sans trop pour pas me casser la figure

Pardon, mauvaise blague

)

**jmfmarques** · 30/08/2006, 14h58

Essaye, Asdorve.
Si tu n'y parviens pas, fais signe...

Edit : Bonjour à toi aussi, DelBeke. Si tu es intéressé également, je fais un zip pour vous deux.

**Delbeke** · 30/08/2006, 14h58

Une methode difficile a implementer consiste a utiliser la fonction SHFileOperation Qui permet de faire les operations Copy/Move/Paste/Delete sur les fichiers en utilisant les routines de l'explorateur Windows.(avec l'animation, les messages d'alertes etc)

J'ai tout encapsulé dans un composant ocx avec des tas d'autres fonctions gérant les acces disques.Je l'appelle mon couteau suisse lol. si du monde et interessé, je le publie