Using FindFirstFileW and FindNextFileW

I can't find any good examples on implementing the Unicode WinAPI calls.

I am trying to get a directory listing, but the directory tree may be longer then 255 characters long.  Dir and FSO appear to ignore files and paths past the 255 character mark.  I understand that FindFirstFileW can list these files for me.

This is the code I have so far.
(I am assuming that only files exist in the directory for the sake of simplicity and the input to the function is something like "c:\windows\")


Public Function GetAllFiles(ByVal DirPath As String) As String()

Dim lFirstRet As Long, lNextRet
Dim typFindData As WIN32_FIND_DATA
Dim lAttr As Long

Dim nextArrayIndex As Long
nextArrayIndex = 0

Dim sFileList() As String
ReDim sFileList(0) As String

Dim searchpath As String

If Right(DirPath, 1) = "\" Then
    searchpath = DirPath & "*.*"
Else
    searchpath = DirPath
End If

'Get First File
lFirstRet = FindFirstFileW(StrPtr("\\?\" & searchpath), typFindData)                          ' do I have to make this a pointer???
If lFirstRet <> -1 Then
    FileName = StripNull(typFindData.cFileName)                                                       ' HOW SHOULD THIS WORK?
   
     ReDim Preserve sFileList(nextArrayIndex) As String
     sFileList(nextArrayIndex) = DirPath & FileName                                        
     nextArrayIndex = nextArrayIndex + 1
   
    'Continue searching until all files in directory are found
    Do
        lNextRet = FindNextFileW(lFirstRet, typFindData)
         If lNextRet = ERROR_NO_MORE_FILES Or lNextRet = 0 Then Exit Do
        FileName = StripNull(typFindData.cFileName)

                ReDim Preserve sFileList(nextArrayIndex) As String
                sFileList(nextArrayIndex) = DirPath & FileName
                nextArrayIndex = nextArrayIndex + 1
    Loop
End If

FindClose lFirstRet
GetAllFiles = sFileList

End Function

I have two functions that strip the nulls


Function StripTerminator(ByVal strString As String) As String
' returns everything before the first Null
    Dim intZeroPos As Integer
    intZeroPos = InStr(strString, Chr$(0))
    If intZeroPos > 0 Then
        StripTerminator = Left$(strString, intZeroPos - 1)
    Else
        StripTerminator = strString
    End If
End Function

Private Function StripNull(ByVal InString As String) As String
'Returns: all character that are NOT a null character

        Dim j As Integer
        Dim result As String
        result = ""
        For j = 1 To Len(InString)
            If Mid(InString, j, 1) <> vbNullChar Then
                result = result & Mid(InString, j, 1)
            End If
        Next
StripNull = result
End Function


Originally I was going to use the first function, and stop after the first null,
but I am getting filenames that look like
s a m p l e _ f i l e . t x t
with nulls every other character.
so I wrote the second function.
Now if I can read sample_file.txt file
but if the next file is short.doc
then the pointer looks like it points to
short.doce.txt
(it keeps the length of the previous file and only overwrites the first few characters)

Perhaps this is more of a ptr question, but I wonder if I don't need the ptr at all to implement FindFirstFileW
or if there is a good example of how to do this.

Thanks in advance