1. Accueil
  2. Forum Codes-Sources
  3. Commentaires sur une source

FAIRE GLISSER UN OU PLUSIEUR FICHER DANS UNE LIST BOX

Signaler
-
Messages postés
18
Date d'inscription
lundi 17 mai 2004
Statut
Membre
Dernière intervention
4 octobre 2007
 -
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/1355-faire-glisser-un-ou-plusieur-ficher-dans-une-list-box

Signaler
Messages postés
18
Date d'inscription
lundi 17 mai 2004
Statut
Membre
Dernière intervention
4 octobre 2007
trop simple. Je l'utilise avec une FileListBox ("Fl") pour copier des fichiers :

Private Sub FL_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer

For i = 1 To Data.Files.count
FileCopy Data.Files.Item(i), FL.Path & "" & Dir(Data.Files.Item(i))
Next

FL.Refresh
End Sub
Signaler
Messages postés
30
Date d'inscription
mercredi 4 décembre 2002
Statut
Membre
Dernière intervention
1 février 2003
c'est con. Mais qu'est que c'est bien. Comme on dit, il fallait y penser...
Signaler
Messages postés
206
Date d'inscription
mercredi 30 janvier 2002
Statut
Membre
Dernière intervention
4 décembre 2007
Salut, question hyperBete : c koi OLE ?????
Signaler
Messages postés
50
Date d'inscription
mardi 8 janvier 2002
Statut
Membre
Dernière intervention
6 juillet 2003
salut comment faire pour qu'il load toute les fichier texte du repertoire ou il se trouve!
Afficher les 9 commentaires