I am trying to list Files and Directories of a Path using unicode support
My code works OK with Files and Dirs with English Names but not for Greek.
Any help would be appreciated
Code: Select all
#include once "vbcompat.bi"
Dim dirPath as String = "C:\Users\nsiat\Desktop"
Dim filename as WString*128
Dim f as Integer = freefile ' Get a free file
Open dirPath For Output As #f
Dim mask as Integer = fbDirectory Or fbHidden Or fbSystem Or fbArchive Or fbReadOnly
filename = Dir(dirPath & "\" & "*", mask)
Dim counter as Integer = 0
while len(filename)>0
print filename
filename = Dir()
wend
' Close the file
Close #f