Bug transfert folser vers folder

[Temjeh]

Bonsoir et merci

J'ai ceci qui ne fonctionne plus pour transfert de folder vers folder
J'ai activer la reference Microsoft scripting Runtime!

Private Sub CommandButton1_Click()
Dim Fso As Scripting.FileSystemObject
Dim Source As String, Destination As String

Set Fso = CreateObject("Scripting.FileSystemObject")

Source = "F:\Documents and Settings\Clqude\Mes document/Base"
Destination = "D:\BacKup Base"

Fso.CopyFolder Source & "\*", Destination, False
Fso.CopyFile Source & "\*", Destination, False

End Sub

Bug sur les 2 dernières lignes chemin d'accès introuvable
A++

Temjeh

 

[JNP]

Re : Bug transfert folser vers folder

Bonjour Temjeh 🙂,
Ton chemin ne peux être valide, je pense qu'il y a 3 erreurs :

Source = "F:\Documents and Settings\Clqude\Mes document/Base"
Source = "F:\Documents and Settings\Cl[SIZE=3][COLOR=red][B]a[/B][/COLOR][/SIZE]ude\Mes document[SIZE=3][COLOR=red][B]s\[/B][/COLOR][/SIZE]Base"

Bonne journée 😎
Edit : Ngogoisidore :Comme aurais dit mon père : "Les grands esprits se rencontrent, comme les ânes à l'abreuvoir..." 😀. En tout cas, la ligne directrice est la même. Bonne journée.

 

[ngogoisidore]

Re : Bug transfert folser vers folder

Bonjour Temjeh,

Je n'ai pas regardé ton code bien en détail, mais le chemin d'accés du répertoire source ne serait t'il pas plutôt :

Source = "F:\Documents and Settings\Claude\Mes documents\Base"

?

Bonne journée.
@+

Edit :
Re bonjour JNP. Nos posts se sont croisés 🙂

 

[Temjeh]

Re : Bug transfert folser vers folder

Merci pour le scoop du "s" des mes documents j'avais mal copier
Pour le q aulieu du a malheureusement je vie avec depuis mon installation de window.

Toujour bug sur chemin d'accès introuvable

A+

Temjeh

 

[ngogoisidore]

Re : Bug transfert folser vers folder

Temjeh,

Si ton dossier destination n'existe pas, alors le code que tu as donné renvoie l'erreur "Path Not Found". En effet, lorsque l'argument source des méthodes CopyFolder ou CopyFile de l'objet FileSystemObject contient des wildcards, la méthode suppose que le dossier destination existe.

Dans ce cas, je te propose le code suivant :

Private Sub CommandButton1_Click()
   Dim Fso As Scripting.FileSystemObject
   Dim Source As String, Destination As String

   Set Fso = CreateObject("Scripting.FileSystemObject")

   Source = "F:\Documents and Settings\Clqude\Mes documents\Base"
   Destination = "D:\BacKup Base"

   Fso.CopyFolder Source, Destination, False
End Sub

Espérant avoir répondu à tes attentes.

@+

 

[Temjeh]

Re : Bug transfert folser vers folder

Ok c'est beau j'abandonne ce post:

Dim Fso As Scripting.FileSystemObject
Dim Source As String, Destination As String

Set Fso = CreateObject("Scripting.FileSystemObject")

Source = "F:\Documents and Settings\Clqude\Bureau\D1"
Destination = "F:\Documents and Settings\Clqude\Bureau\D2"

Fso.CopyFolder Source, Destination, False

BUG:
Ce fichier existe déjà!

J'ai trouvé un prog gratuit qui le fait très bien:

Allway Sync: Free File Synchronization, Backup, Data Replication, PC Sync Software, Freeware, File Sync, Data Synchronization Software

A+
Merci quand même

Temjeh