How about an API solution...
Code:
Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const LB_DIR = &H18D

Private Const DDL_READWRITE = &H0
Private Const DDL_READONLY = &H1
Private Const DDL_HIDDEN = &H2
Private Const DDL_SYSTEM = &H4
Private Const DDL_DIRECTORY = &H10
Private Const DDL_ARCHIVE = &H20
Private Const DDL_DRIVES = &H4000
Private Const DDL_EXCLUSIVE = &H8000&
Private Const DDL_POSTMSGS = &H2000

Private Const FindAllFiles = DDL_READWRITE Or DDL_READONLY Or DDL_HIDDEN Or DDL_SYSTEM

Private Sub Form_Load()
Dim Cnt As Integer

Me.Visible = True

Cnt = SendMessage(List1.hwnd, LB_DIR, FindAllFiles, ByVal "c:\*.*")

MsgBox "Found " & Cnt + 1 & " files"

End Sub
Good Luck