prova a scrivere questo codice nella routine del filelistbox:
Spero non sia troppo tardi!codice:Private Sub File1_Click() Dim File As String If Right$(File1.Path, 1) = "\" Then File = File1.Path & File1.FileName Else File = File1.Path & "\" & File1.FileName End If End Sub
:gren: Dove stai andando, maledetto gatto


Rispondi quotando