type mismatch in findnextfile

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

You declared buffer as a long. Buffer needs to be a string (or variant). I recommend string and instead of Left() (which, I believe returns a variant) use Left$().

Good Luck!

Thanks, but I still get a return value of €»RÞð¿

ÀÈUÞð¿
. What the ????.

It seems that you have a problem with InStr Function. You have

Code:

---

'error breaks here'
buffer = Left(1,file.cFileName, InStr(file.cFileName, vbNullChar) - 1)

---

The correct syntax should be:

Code:

---

buffer = Left(1,file.cFileName, InStr(1, file.cFileName, vbNullChar) - 1)

---

HTH

Post #500