Working with Unicode file names in VBA (using Dir, FileSystemObject, etc.)

by

It sounds like you are being misled by the fact that while VBA itself supports Unicode characters, the VBA development environment does not. The VBA editor still uses the old “code page” character encodings based on the locale setting in Windows.

Certainly FileSystemObject et. al. do in fact support Unicode characters in file names, as illustrated by the following example. With a folder containing three plain text files

Filename: 1_English.txt
Contents: London is a city in England.

Filename: 2_French.txt
Contents: Paris is a city in France.

Filename: 3_Połish.txt
Contents: Warsaw is a city in Poland.

The following VBA code …

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

… produces the following output in the Immediate window …

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

Note that the Debug.Print statement converts the ł character to l because the VBA development environment cannot display ł using my Windows locale (US English).

However, the following code does open all three files successfully …

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

… displaying

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

More Related Contents:

  1. ms access vba code for update records through form
  2. How to add default signature in Outlook
  3. Combine rows / concatenate rows
  4. Is it possible to pass parameters programmatically in a Microsoft Access update query?
  5. Getting Error 3340 Query ‘ ‘ is corrupt while executing queries DoCmd.RunSQL
  6. Too few parameters Expected 1, recordset issue
  7. Show “Open File” Dialog
  8. How do I display a messagebox with unicode characters in VBA?
  9. Determining whether an object is a member of a collection in VBA
  10. Distinction between using .text and .value in VBA Access
  11. MS Access VBA Error: Run time error ’70’ Permission Denied
  12. Automatically generating handling of issues
  13. Is it better to use ADO or DAO in Access 2007?
  14. VBA – Folder Picker – set where to start [duplicate]
  15. MS Access: how to compact current database in VBA
  16. VBA – Convert string to UNICODE
  17. How to loop through all controls in a form, including controls in a subform – Access 2007
  18. FileDialog doesn’t work
  19. Determine real cause of ODBC failure (error 3146) with ms-access?
  20. Is there an equivalent to Thread.Sleep() in VBA
  21. Exporting MS Access Forms and Class / Modules Recursively to text files?
  22. How to get logged-in user’s name in Access vba? [duplicate]
  23. Pass a parameter into an access report programmatically
  24. finding latest file in a folder and opening it (vba access)
  25. Insert multiple records with a date range in MS Access
  26. MS Access VBA: Sending an email through Outlook [closed]
  27. Create sequential ID value based on the year that a record is added
  28. SendKeys is messing with my NumLock key via VBA code in Access form
  29. Runtime error 287. Sending Emails through Outlook using VBA in Access
  30. Download attachment from Outlook and Open in Excel

Leave a Comment