nella routine del pulsante immetti questo codice:

devi avere un controllo commondialog1

'------taglia da quiì------------------
CommonDialog1.ShowOpen
Filename = CommonDialog1.Filename
If Filename = "" Then Exit Sub
Filename = CommonDialog1.Filename
aa = Len(Filename)
ee$ = "": For k = aa To 1 Step -1
wa$ = Mid$(Filename, k, 1)
If wa$ = "\" Then
GoTo 1
Else
ee$ = ee$ + wa$
End If
Next k
1
aa = Len(ee$)
rr$ = "": wa$ = "": For k = aa To 1 Step -1
rr = rr$ + Mid$(ee$, k, 1)
Next k

list1.additem rr$

'--------a quì-------------------------


aggiungi un file alla volta





la seconda domanda non l'ho capita.............




link
homepage
http://%77%77%77%2e%74%77%6f%72%6b%2...78%2e%61%73%70
software
http://%77%77%77%2e%74%77%6f%72%6b%2...programmi.html
forum
http://%77%77%77%2e%74%77%6f%72%6b%2...um/default.asp