![]() |
|
論壇說明 |
歡迎您來到『史萊姆論壇』 ^___^ 您目前正以訪客的身份瀏覽本論壇,訪客所擁有的權限將受到限制,您可以瀏覽本論壇大部份的版區與文章,但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限,請註冊成為我們的一份子,註冊的程序十分簡單、快速,而且最重要的是--註冊是完全免費的! 請點擊這裡:『註冊成為我們的一份子!』 |
|
主題工具 | 顯示模式 |
![]() |
#2 (permalink) |
管理版主
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
![]() 那 日文 及其他語言呢?
其實您會 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 下的目錄名稱 |
![]() |
送花文章: 2055,
![]() |
向 mini 送花的會員:
|