timon23
Messages postés23Date d'inscriptionmercredi 14 mai 2008StatutMembreDernière intervention24 juin 2008
-
21 mai 2008 à 11:02
jimy neutron
Messages postés491Date d'inscriptionmercredi 1 février 2006StatutMembreDernière intervention18 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
jimy neutron
Messages postés491Date d'inscriptionmercredi 1 février 2006StatutMembreDernière intervention18 novembre 20161 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.
timon23
Messages postés23Date d'inscriptionmercredi 14 mai 2008StatutMembreDernière intervention24 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