Need help capturng unicoded directory names

[SMcNeill]

And to showcase that this approach works on my system, here's a deeper example where it uses that file information to swap to get information and interact with those internal directories:

Code: (Select All)

$Console:Only



'_ConsoleFont "Lucida Console", 20

_ConsoleFont "Consolas", 24

'_ConsoleFont "Courier New", 16

Shell "CHCP 65001"

Shell "dir /b Z:\test\*.* > temp.txt"

Open "temp.txt" For Input As #1

Do Until EOF(1)

    Line Input #1, text$

    Print text$

    fulldir$ = "z:\test\" + text$

    If _DirExists(fulldir$) Then

        Shell "dir /b " + Chr$(34) + fulldir$ + Chr$(34) + "\*.* > temp2.txt"

        Open "temp2.txt" For Input As #2

        Do Until EOF(2)

            Line Input #2, temp$

            Print Tab(10); "---->"; temp$

        Loop

        Close #2

    End If

Loop

Close