Foro de elhacker.net

  Set lvwList.Icons = imlMyImageList
  Set lvwList.SmallIcons = imlMyImageList

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