Y donde tengo que poner eso?
cada vez que quiero añadir algo?
Case "REFRESH"
'Yo lo e puesto aqui y me da el error "Esta clase no admite automatizacion o no admite la interfaz esperada."
Set Form_archivos.ListView_files.SmallIcons = Form_archivos.ImageList
Form_archivos.ListView_files.ListItems.Clear
If Len(CurrentDirectory) > 3 Then If Mid$(recibido(1), 2, 1) <> ":" Then Form_archivos.ListView_files.ListItems.Add(, "Previous", "..").SmallIcon = 1
For I = 1 To (UBound(recibido) - 1)
If Left$(recibido(I), 1) = ChrW$(2) Then 'Directory
Form_archivos.ListView_files.ListItems.Add(, "Directory" & I, Right$(recibido(I), (Len(recibido(I)) - 1))).SmallIcon = 1
Else 'File
Select Case LCase$(Mid$(recibido(I), InStrRev(recibido(I), ".") + 1))
Case "htm", "html", "txt", "doc", "ini": IconNum = 8
Case "exe", "bat", "com", "scr": IconNum = 3
Case "sys", "dll", "vxd", "cpl": IconNum = 4
Case "ogg", "mp3", "midi", "wav", "ram", "rm", "mp2", "mpga", "mid": IconNum = 6
Case "divx", "mpeg", "mpg", "avi", "asf", "swf", "wmv", "wma", "asx", "mov", "mpe", "qt": IconNum = 7
Case "jpg", "gif", "png", "bmp", "pdf", "jpe", "jpeg": IconNum = 5
Case "rar", "zip", "cab", "iso", "ace", "r00": IconNum = 9
Case Else: IconNum = 2
End Select
Form_archivos.ListView_files.ListItems.Add(, "File" & I, recibido(I)).SmallIcon = IconNum
End If
Next I
If LenB(recibido(UBound(recibido))) <> 0 Then
tmpString = recibido(UBound(recibido))
Else
tmpString = vbNullString
End If
Ahi esta bien puesto???