dxh_master
Messages postés97Date d'inscriptionmardi 24 mai 2005StatutMembreDernière intervention25 juin 2006
-
27 mai 2006 à 19:20
dxh_master
Messages postés97Date d'inscriptionmardi 24 mai 2005StatutMembreDernière intervention25 juin 2006
-
28 mai 2006 à 19:30
BOnjour
j'aimerait faire glisser n'importe quel fichier dans ma form et recupérer le nom et le chemin du fichier comment faire???
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 27 mai 2006 à 19:39
Salut,
essai ça : t'as juste à remplacer "List1" par le nom de ta ListBox
Private Sub Form_Load()
List1.OLEDropMode = 1
End Sub
Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
For a = 1 To Data.Files.Count
List1.AddItem Data.Files.Item(a)
Next
Text1 = Data.Files.Count
End Sub
Merci à CtHuLhU50 pour sa source, que j'ai trouvé en 5 secondes en cherchant par le moteur de recherche CS...