Probleme avec CopyFolder. Je comprends plus rien

Question

Salut a tous,

J'ai un module et voici le code:

Private Sub Command1_Click()

Dim Repertoire1 As String
Dim Repertoire2 As String
Dim Repertoire3 As String

Dim Repertoire4 As String
Dim fso As New FileSystemObject

Set fso = CreateObject("Scripting.FileSystemObject")

Repertoire1 = "D:	est1"
Repertoire2 = "D:	est2"
Repertoire3 = "D:	est3"
Repertoire4 = "\test4\Dossier1"  ............<= C'est un serveur

If fso.FolderExists(Repertoire1) = False Then
    fso.CreateFolder (Repertoire1)
End If

If fso.FolderExists(Repertoire2) = False Then
    fso.CreateFolder (Repertoire2)
End If

If fso.FolderExists(Repertoire3) = False Then
    fso.CreateFolder (Repertoire3)
End If

fso.copyfolder repertoire4 , repertoire3 , true

MsgBox ("Installation effectuée avec succès.")

Unload Me

End Sub

Il me met invalid call argument et j'ai tout essayé pour copier mais rien ne marche.

J'ai essayé avec un \ sans le \ etc... et rien de rien toujours plantage

Ensuite, j'ai rajouté un * a Repertoire4 et la, il m'a copié que le sous dossier avec ses fichiers mais pas les fichiers du dossier principal.

Je craque aidez moi svp.

Merci d'avance.

A+

cboulas · Answer

Salut,

En fait il faut que tu change copyfolder en :


fso.copyfolder repertoire4 & "\*" , repertoire3 , true


Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

finfilou · Answer

j'ai fait ce que tu m'as dis mais c'est toujours pareil.

Ca marche mais il copie que le sous dossier.

Pour t'expliquer, j'ai des fichiers dans "repertoire 4" et un dossier que l'on va appelé "sous repertoire 4" avec des fichiers aussi.

Il copie que le "sous repertoire 4" avec ses fichiers mais pas les fichiers de "repertoire 4".

Si qq'un a une solution.

Et merci de ton aide. Je sens que l'on va y arriver.

A +

finfilou · Answer

un petit :up: afin que l'on trouve une solution.

merci

Probleme avec CopyFolder. Je comprends plus rien

3 réponses

Discussions similaires