I live in Japan

I can't get subfolder's name.

It is written by Japanese code.

My OS is Win 95.

Dim fs, f, f1, fc, s, f2
    folderspec="C:\sample"
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set mytxt = fs.CreateTextFile ("C:\sample\sample.txt",True)    
    Set fc = f.SubFolders    
For Each f1 in fc
 s = f1.name
       mytxt.WriteLine (s)
   Next
 mytxt.Close