ne pas ecraser un fichiers lors de la copie mais l'incrementer de 1 ?

Bonjour ,

J'ai un petit soucis lors d'un transfert de fichiers ...
Ce que je voudrais faire au final s'est selectionner plusieurs source
ex : c\toto ; c\tonton ;c:\tata
et qu'il me recopie tout les fichiers dans c:\test
Mais qu'il ne m'ecrase pas les fichiers portant le meme nom , qu'il me les incremente de 1.
ex : test.txt duplique ==> test1.txt
Mon code actuel donne :

Private Sub Commande2_Click()
' déclare la source du fichier a copier
Dim source As String
source = Texte1 'texte1 correspond a une textbox
' déclare la destination du fichier a copier
Dim destination As String
destination = Texte2
'appel la fonction de copie du fichier
Call copyfile(Texte1, Texte2)

End Sub


j'ai vu la fonction getunique sur le forum mais j'avoue ne pas comprendre comment m'en servir et si ca peu etre utile pour mon probleme .

Merci d'avance

Pour faire ceci, le plus simple est sans doute de ne pas faire une copie de répertoire à répertoire, mais de fichier à fichier dans le répertoire cible.

Tu listes tes fichiers de ton répertoire source.
Tu fais une boucle qui va défiler chaque fichier et avec l'instruction Dir, tu vas vérifier si ce fichier existe déjà dans ton répertoire cible.
S'il existe, tu copies le fichier en donnant comme nom ce que tu veux (incrémentation, etc ...), sinon, tu copies directement.

Molenn