那 日文 及其他語言呢？
其實您會
VB 可以試著自己做看看的
原理是
將得到的字串印到一般的 Lable上
如果一個字串中有非 英文及正體中文 字出現
就會顯示成 ?
(最後再搜尋是否有 ? 字元出現即可)
======================
至於如何得到檔案與目錄名稱
以下示範請自行理解應用
Public fso As Object
Public rootFolder As Object 'Folder
Public thisFile As Object 'Files
Public fi
Dim FI_Name() as String
Set fso = CreateObject("Scripting.FileSystemObject")
Set rootFolder = fso.GetFolder(PathIs)
Set thisFile = rootFolder.Files
ReDim FI_Name(0)
iTotal = -1
For Each fi In thisFile
iTotal = iTotal + 1
ReDim Preserve FI_Name(iTotal)
FI_Name(iTotal) = fi.Name
Next
最後就得到 這個目錄下所有的 檔案名稱 FI_Name
rootFolder.Name 則是 PathIs 下的目錄名稱