|
CP_UTF8 = &FDE9 VDU 23,22,640;512;8,16,16,128+8 : REM Select UTF-8 mode *font Courier New PROClistdirectory_utf8 END DEF PROClistdirectory_utf8 LOCAL dir%, sh%, res%, utf8% DIM dir% LOCAL 317, utf8% LOCAL 260 SYS "FindFirstFileW", "*"+CHR$0+CHR$0, dir% TO sh% IF sh% <> -1 THEN REPEAT SYS "WideCharToMultiByte", CP_UTF8, 0, dir%+44, -1, utf8%, 260, 0, 0 PRINT $$utf8% SYS "FindNextFileW", sh%, dir% TO res% UNTIL res% = 0 SYS "FindClose", sh% ENDIF ENDPROC