passaggio items da filelist a listbox

[ZeroOne]

salve
ho una file list con muliselect impostata a simple
vorrei creare un pulsante col quale mi vengono aggiunti i file selezionati in una listbox invece di doverli aggiungere uno per uno.
come posso fare?
grazie
cya

[adamino]

usa una listview dove gli item possono essere selezionati
tramite una check box.
E' pure piu' bella.ciao.

[ZeroOne]

una listview come partenza o come arrivo?
come partenza non posso perchè mi serve la filelist collegata a una dirlist..con la quale navigo dentro le cartelle dell'hd e mi fa vedere certi file..poi i file che vedo li devo passare alla listbox...

[adamino]

tutto questo lo hai già fatto....

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

per avere il percorso completo....

Private Sub File1_Click()
If Right(File1.Path, 1) = "\" Then
Text1.Text = File1.Path & File1.List(File1.ListIndex)
Else
Text1.Text = File1.Path & "\" & File1.List(File1.ListIndex)
End If
End Sub

nella file1 hai un elenco di file che puoi filtrare inizialmente
magari accettando solo file con una particolare
estensione o tutti.
Se vuoi ulteriormente selezionare dei file dalla file1 devi per forza
selezionarli singolarmente (se non sono tutti) magari ne ricavi il valore della listindex e lo depositi momentaneamente in una arrey
e poi in un ciclo vai a leggere il valore dell'item con
quell' index e lo depositi in una listbox o quello che vuoi.

Fammi sapere se hai risolto perchè non sono sicuro di aver capito
bene il tuo problema.
ciao.

[ZeroOne]

ora sono a casa e i file li ho a lavoro quindi finona lunedì non riesco a fare la prova cmq il problema te lo esplico meglio..
io devo fare operazioni su dei file xls..queste operazioni da fare sono cicliche..e vengono eseguite sui file che sono in una list box...per inserire quindi i file che voglio elaborare nella listbox passo prima dalla file list...e ovviamente con una dri list ataccata..con le queli mi sposto per cercare i file da elaborare.

visto che però c'è esigenza di inserire molti file nella listbox,,ora li inserisco uno alla volta dalla filelist..però vorrei poter usare il multiselect e inserirne tanti in un colpo solo..così si fa prima

capisci ora?
tnx

[Mabi]

Ti basta un ciclo per controllare quali sono gli Item selezionati e quindi da aggiungere:

Dim Cont As Integer

For Cont = 0 To File1.ListCount - 1
  If File1.Selected(Cont) = True Then
    List1.AddItem File1.List(Cont)
  End If
Next Cont

[ZeroOne]

grazie mille maBi!
funziona alla perfezione
tnx