DragFile
Dim ItemCount As Integer Dim I As Integer On Error Resume Next ItemCount = Data.Files.Count For I = 1 To ItemCount List1.AddItem Data.Files(I) Next If Err Then Err.Clear
Dim ItemCount As Integer
Dim I As Integer
On Error Resume Next
ItemCount = Data.Files.Count
For I = 1 To ItemCount
List1.AddItem Data.Files(I)
Next
If Err Then Err.Clear
(dragfile.html)- by Paolo Puglisi - Modifica del 25/3/2019