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?