[VB6] ucShellBrowse: A modern replacement for Drive/FileList w/ extensive features

[Crapahute]

        strFolder = "\??\"
        strFolder = strFolder & strDirectory
    '    RtlDosPathNameToNtPathName_U StrPtr(strFolder), strUnicode, fp, rn
        RtlInitUnicodeString strUnicode, StrPtr(strFolder)

with RtlDosPathNameToNtPathName_U commented out like that... I think there's where the problem was.

The code you provide is already set like that, I did not touch anything.