Copie de plusieurs fichier [Résolu]

Signaler
Messages postés
23
Date d'inscription
mercredi 14 mai 2008
Statut
Membre
Dernière intervention
24 juin 2008
-
Messages postés
491
Date d'inscription
mercredi 1 février 2006
Statut
Membre
Dernière intervention
18 novembre 2016
-
Salut a tous
J'ai un problème pour copier plusieurs fichiers
Je suis arrivé un copier un fichier mais je n'arrive pas a le faire quand une personne sélectionne plusieurs fichiers pour les copiers.
Si vous trouvé une solution merci de votre aide
bye

3 réponses

Messages postés
491
Date d'inscription
mercredi 1 février 2006
Statut
Membre
Dernière intervention
18 novembre 2016
1
Salut,

A partir de quoi sont selectionnés le ou les fichiers à copier?
Tous les fichiers ont-ils la même source?
Tous les fichiers ont-ils la même destination?

Dans le principe général, tu peux creer une fonction du style:

Public Function CopyFile(Source as String,Dest as String, Name as String)

Puis tu appelle cette fonction dans une boucle:

For A=1 to Nombre de fichier à copier
Call CopyFile(Source,Dest, Name)
Next A

A chaque boucle tu devras preciser Source,Dest et Name, s'il sont differents selon les fichiers.

Il existe peu être une fonction du runTime VB, mai sje ne la connais pas.

Jimy
Messages postés
23
Date d'inscription
mercredi 14 mai 2008
Statut
Membre
Dernière intervention
24 juin 2008

es fichiers auront la même destination mais pas le même nom ce qui est logique
La source des fichiers et la même
Et pour la selection des fichiers c'est grâce a ma listview que je peut sélectionné des fichiers.
Voici mon programme pour copier un fichier
         If Right(lo.DirAF.path, 1) = "" Then
            Destination = lo.DirAF.path & serv.listviewAF.selectedItem
        Else
            Destination = lo.DirAF.path & "" & serv.listviewAF.selectedItem
        End If
           
        If Right(serv.DirAF.path, 1) = "" Then
            Source = serv.DirAF.path & serv.listviewAF.selectedItem
        Else
            Source = serv.DirAF.path & "" & serv.listviewAF.selectedItem
        End If
       
        If fso.FileExists(Source) Then
                fso.CopyFile Source, Destination
                date_sorti = Date & vbCrLf & Time
        Else
                fso.CopyFolder Source, Destination
                date_sorti = Date & vbCrLf & Time
        End If

Donc il doit avoir une histoire de boucle For des fichiers sélectionnés mais je voit pas comment faire
merci de votre aide
Messages postés
491
Date d'inscription
mercredi 1 février 2006
Statut
Membre
Dernière intervention
18 novembre 2016
1
Ajoute le code que tu as donné dans la boucle.

Dim Index As Integer

For Index = 1 To listviewAF.ListItems.Count
If listviewAF.ListItems(Index).Selected = True Then

* CODE *

End If
Next Index

N'oublie pas FullRowSelect=True

Jimy