Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Private Sub Command1_Click()
Dim i As Integer
If File1.ListCount <> 0 Then
For i = 0 To File1.ListCount - 1
List1.AddItem File1.List(i)
Next i
End If
End Sub
Private Sub Command1_Click()
Dim i As Integer
If File1.ListCount <> 0 Then
For i = 0 To File1.ListCount - 1
List1.AddItem File1.List(i)
Next i
End If
End Sub
in questo modo prendi solo il nome del file e non tutto il percorso
per il percorso usa: