Rename , Open, read Unicode files

[georgekar]

@jooney
That work on xp but not allways in Windows7...(I can't find why)

            .pFrom = StrPtr(sSourceFile & Chr(0) & Chr(0))
            .pTo = StrPtr(sDesFile & Chr(0))

change it to this

            .pFrom = StrPtr(sSourceFile )
            .pTo = StrPtr(sDesFile ))

i found that the second form work..

I also notice that his run both on Xp and Windows 7...

Dim s$
Dim s2$
 s$ = String(1024, 0)
s2$ = String(1024, 0)
Mid$(s$, 1, Len(sSourceFile)) = sSourceFile
Mid$(s2$, 1, Len(sDesFile)) = sDesFile