Copie de plusieurs fichier

Résolu
timon23
Messages postés
23
Date d'inscription
mercredi 14 mai 2008
Statut
Membre
Dernière intervention
24 juin 2008
- 21 mai 2008 à 11:02
jimy neutron
Messages postés
491
Date d'inscription
mercredi 1 février 2006
Statut
Membre
Dernière intervention
18 novembre 2016
- 21 mai 2008 à 14:32
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

jimy neutron
Messages postés
491
Date d'inscription
mercredi 1 février 2006
Statut
Membre
Dernière intervention
18 novembre 2016
1
21 mai 2008 à 11:23
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
3
timon23
Messages postés
23
Date d'inscription
mercredi 14 mai 2008
Statut
Membre
Dernière intervention
24 juin 2008

21 mai 2008 à 12:29
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
3
jimy neutron
Messages postés
491
Date d'inscription
mercredi 1 février 2006
Statut
Membre
Dernière intervention
18 novembre 2016
1
21 mai 2008 à 14:32
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
3