史萊姆論壇

返回   史萊姆論壇 > 專業主討論區 > 軟體應用問題討論區
忘記密碼?
論壇說明

歡迎您來到『史萊姆論壇』 ^___^

您目前正以訪客的身份瀏覽本論壇,訪客所擁有的權限將受到限制,您可以瀏覽本論壇大部份的版區與文章,但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限,請註冊成為我們的一份子,註冊的程序十分簡單、快速,而且最重要的是--註冊是完全免費的!

請點擊這裡:『註冊成為我們的一份子!』

Google 提供的廣告


 
 
主題工具 顯示模式
舊 2008-09-10, 08:17 PM   #2 (permalink)
管理版主
 
mini 的頭像
榮譽勳章
UID - 4144
在線等級: 級別:98 | 在線時長:10173小時 | 升級還需:24小時級別:98 | 在線時長:10173小時 | 升級還需:24小時級別:98 | 在線時長:10173小時 | 升級還需:24小時級別:98 | 在線時長:10173小時 | 升級還需:24小時級別:98 | 在線時長:10173小時 | 升級還需:24小時級別:98 | 在線時長:10173小時 | 升級還需:24小時級別:98 | 在線時長:10173小時 | 升級還需:24小時級別:98 | 在線時長:10173小時 | 升級還需:24小時
註冊日期: 2002-12-07
文章: 13494
精華: 0
現金: 26859 金幣
資產: 3024789 金幣
預設

那 日文 及其他語言呢?

其實您會 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 下的目錄名稱
mini 目前離線  
送花文章: 2055, 收花文章: 8070 篇, 收花: 26924 次
回覆時引用此帖
向 mini 送花的會員:
sob790717b (2008-09-11)
感謝您發表一篇好文章
 



發表規則
不可以發文
不可以回覆主題
不可以上傳附加檔案
不可以編輯您的文章

論壇啟用 BB 語法
論壇啟用 表情符號
論壇啟用 [IMG] 語法
論壇禁用 HTML 語法
Trackbacks are 禁用
Pingbacks are 禁用
Refbacks are 禁用


所有時間均為台北時間。現在的時間是 03:44 AM


Powered by vBulletin® 版本 3.6.8
版權所有 ©2000 - 2025, Jelsoft Enterprises Ltd.


SEO by vBSEO 3.6.1