Angelo_Tbp ha scritto:
Ciao, inserisci una listbox (casella di riepilogo), richiamala da codice mediante il nome elemento, quindi accedi al "metodo" add e scrivi quello che hai messo dentro la funzione msgbox.
Ad esempio...
ListBox1.Items.Add("Tokyo")
non ci riesco.......... vi allego il codice che uso ricavato da vari esempi e che applicato, fa al mio caso e mi funziona...........l'unica cosa e che vorrei eliminare msgbox.foundfiles(i) e al suo posto mettere qualcosa che mi elenchi i file che ha trovato uno ad uno senza dover premere ogni volta ok
With Application.FileSearch
.NewSearch
.LookIn = "c:\misaste\listini\destin\"
.FileName = "*.txt"
.Execute
If .Execute() > 0 Then
pfile = .FoundFiles.Count
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox " non ci sono listini non posso creare tabella filemetel ": Exit Sub
End If
End With
MsgBox " HO TROVATO" & Chr$(13) & " N." & pfile & Chr$(13) & " FILE LISTINI "