Can some one help me out on this one. I get a type mismatch and I can't figure out why it is in a directory where it won't get caught up on folders. the error break down where I have it marked.

Dim file As Win32_Find_data
Dim search As Long
Dim success As Long
Dim buffer As Long
search = FindFirstFile("C:\Windows*.*", file)
If search = -1 Then
Debug.Print "No files found"
End
End If
Do
'error breaks here' buffer = Left(file.cFileName, InStr(file.cFileName, vbNullChar) - 1)
Debug.Print buffer

success = FindNextFile(search, file)
Loop Until success = 0

End Sub