'-------------------------------------------------
'Añade 2 ListBox (List1 y List2)
'-------------------------------------------------
Option Explicit
Private Declare Function GetFileAttributesW Lib "KERNEL32" (ByVal lpFileName As Long) As Long
 
'LeandroA mod Karcrack mod Raul338 mod Mr.Frog
Public Static Function DoFileExistsRII(ByRef sPath As String) As Boolean
    DoFileExistsRII = (GetFileAttributesW(StrPtr(sPath)) > -1)
End Function
 
Private Sub Form_Load()
Dim lngCount                    As Long
Dim strTmp                      As String
Dim Q                           As Long
 
    With List1
        .AddItem "c:\hola.txt"
        .AddItem "c:\Text\34543554.jpg"
        .AddItem "c:\La reproducción de las ranas.mpeg"
 
        lngCount = .ListCount - 1           '// Cantidad de Items
 
        '// Guardaré en el List2 sólo los archivos que existen xP
        For Q = 0 To lngCount
            strTmp = .List(Q)               '// El Item actual
            If DoFileExistsRII(strTmp) Then '// Si existe... (¿Aquí estaba el fallo de lógica? xD)
                List2.AddItem strTmp        '// Lo añado a List2
            End If
        Next Q
    End With
End Sub

c:\hola.txt
c:\La reproducción de las ranas.mpeg