Praca z nazwami plików w Unicode w VBA (przy użyciu Dir, FileSystemObject itp.)

Question

Jestem iteruje poprzez pliki w folderze (co oznacza, że ​​nie znam nazwisk w folderze) i mam plik z polską ł znak.

Funkcja Dir przekształca to w l, co oznacza, że ​​nazwy pliku nie można znaleźć w późniejszym terminie. Deklarowałem var, że przypisuję wartość dir jako ciąg znaków.

Próbowałem również FSO i getfolder, który ma również ten sam problem.

Zauważyłem również, że okno dialogowe plików (ustawione na tryb wyboru folderu) konwertuje powyższy znak.

---

Czy to błąd, czy jest to coś, nad czym można pracować?

Answer 1

Brzmi jak ty są wprowadzani w błąd przez fakt, że podczas VBA sama obsługuje znaków Unicode, VBA środowisko programistyczne nie. Edytor VBA nadal wykorzystuje stare kodowanie znaków "strona kodowa" w oparciu o ustawienia regionalne w systemie Windows.

Z pewnością FileSystemObjectet. glin. w rzeczywistości obsługują znaki Unicode w nazwach plików, co ilustruje poniższy przykład. Z folderu zawierającego trzy pliki tekstowe

Nazwa pliku: 1_English.txt
Zawartość: London is a city in England.

Nazwa pliku: 2_French.txt
treści: Paris is a city in France.

Nazwa pliku: 3_Połish.txt
treści: Warsaw is a city in Poland.

Poniższy Kod VBA ...

Option Compare Database 
Option Explicit 

Sub scanFiles() 
    Dim fso As New FileSystemObject, fldr As Folder, f As File 
    Set fldr = fso.GetFolder("C:\__tmp\so33685990\files") 
    For Each f In fldr.Files 
     Debug.Print f.Path 
    Next 
    Set f = Nothing 
    Set fldr = Nothing 
    Set fso = Nothing 
End Sub 

... daje następujący wynik w oknie Immediate ...

C:\__tmp\so33685990\files\1_English.txt 
C:\__tmp\so33685990\files\2_French.txt 
C:\__tmp\so33685990\files\3_Polish.txt 

Należy pamiętać, że oświadczenie Debug.Print przekształca charakter ł do l ponieważ środowisko programistyczne VBA nie może wyświetlić ł używając mojego systemu Windows locale (angielski amerykański).

Jednakże, poniższy kod nie otworzyć wszystkie trzy pliki z powodzeniem ...

Option Compare Database 
Option Explicit 

Sub scanFiles() 
    Dim fso As New FileSystemObject, fldr As Folder, f As File, ts As TextStream 
    Set fldr = fso.GetFolder("C:\__tmp\so33685990\files") 
    For Each f In fldr.Files 
     Set ts = fso.OpenTextFile(f.Path) 
     Debug.Print ts.ReadAll 
     ts.Close 
     Set ts = Nothing 
    Next 
    Set f = Nothing 
    Set fldr = Nothing 
    Set fso = Nothing 
End Sub 

... wyświetlanie

London is a city in England. 
Paris is a city in France. 
Warsaw is a city in Poland.