[下载]檔案清單列表機|『影音数码技术学习交流』

weilai

级别: 版主

注册时间:: 2002-12-02

在线时间:: 0小时

发帖:: 3002

只看楼主更多操作楼主发表于: 2006-07-08

這是本來自己使用花了一個工作天的時間製作並除錯而成的作品
在此分享給大家
更新版 1.2
http://d.turboupload.com/d/763348/DirListText.rar.html

用意是當檔案多了以後
就算有分門別類也會有找不到的時候
每次用 "Windows 檔案總管" 來搜會很傷硬碟
那用 "命令提示字元" 的 dir/s *.mp3 > c:\list.txt 之類的命令
或其他專門軟體
其產生之檔案內容碰到非 big5內碼的檔案會變成 ???

比如 [苍之瞳的少女][砂上の梦][佐々木ゆう子].mp3
變成 [?之瞳的少女][砂上??][佐?木??子].mp3

但此工具則排除了這個主要問題
其生成的檔案是 UTF-16LE 編碼文字檔

如此以後只要檔開這份列表
按下 Ctrl+F 來搜尋就快多了

簡略使用說明: (此為舊 1.0版畫面)

※此程式使用了一些元件檔
有用到一些相關元件檔 (FM20.DLL、MSCOMCTL.OCX、scrrun.dll ...)
如果沒有的朋友到這下
http://d.turboupload.com/d/731199/system32.7z.html
(解壓到 C:\WINDOWS\system32)
有些需要使用 regsvr32 xxx.ooo 來註冊之
如有問題請自行執行之

[Ver 1.2]
.搜尋條件當為 *.mp3 時表示搜尋副檔名為 .mp3 的檔案
否則搜尋條件為 .mp3
ABC.mp3.lnk
Is.mp312345.dat
也會符合條件

.[開始列印] 旁邊增加 [續] 這個鈕
可以把搜尋內容放到已存在的清單檔後頭
也就是做出統合清單檔

.可在其他windows語系下顯示(使用)無誤

.改良右下角時間標示手法

.效能稍微提升

分享到 淘江湖新浪 QQ微博 QQ空间开心人人豆瓣网易微博百度鲜果白社会飞信

回复引用

举报顶端

fffhxy

级别: 工作组

注册时间:: 2002-12-28

在线时间:: 1小时

发帖:: 5454

只看该作者 1楼发表于: 2006-07-08

这个东东大好
感谢分享^^

星たちよ――
汝の命短き眷属の望みを聞くがよい。
我らの望み、それは――
汝の本降ちゆく末を看取ること――

不听我的话就把你的小裤裤剪掉

回复引用

举报顶端

fffhxy

级别: 工作组

注册时间:: 2002-12-28

在线时间:: 1小时

发帖:: 5454

只看该作者 2楼发表于: 2006-07-08

请问在点击"离开"后
出现:
运行时错误'5':
无效的过程调用或参数

如何解决?

星たちよ――
汝の命短き眷属の望みを聞くがよい。
我らの望み、それは――
汝の本降ちゆく末を看取ること――

不听我的话就把你的小裤裤剪掉

回复引用

举报顶端

monkeyking2002

级别: 精灵王

注册时间:: 2003-12-28

在线时间:: 6小时

发帖:: 3532

只看该作者 3楼发表于: 2006-07-08

没用过
下来试试

回复引用

举报顶端

Clarity

级别: 新手上路

注册时间:: 2003-11-03

在线时间:: 0小时

发帖:: 247

只看该作者 4楼发表于: 2006-07-08

感謝發布，下栽睞試用一下。

回复引用

举报顶端

weilai

级别: 版主

注册时间:: 2002-12-02

在线时间:: 0小时

发帖:: 3002

只看该作者 5楼发表于: 2006-07-09

引用
最初由 fffhxy 发布
请问在点击"离开"后
出现:
运行时错误'5':
无效的过程调用或参数

如何解决?

那一段程式碼看了一下很單純
Private Sub ExitCommand_Click()

'紀錄位置
If Me.WindowState <> vbMinimized Then
SaveSetting App.Title, "Settings", "MainLeft", Me.Left
SaveSetting App.Title, "Settings", "MainTop", Me.Top
End If

Unload Me
End Sub

可能是第一次執行註冊表記錄位置之問題 (或由於是繁體windows編譯造成的...)
下次版本會加個
On Error Resume Next
的語法暫時解決

不知畫面上有無亂碼 (哪位朋友可以貼出來給我看一下嗎？)
或其他bug、建言 ?

回复引用

举报顶端

越前リョ－マ

级别: 新手上路

注册时间:: 2005-09-29

在线时间:: 0小时

发帖:: 231

只看该作者 6楼发表于: 2006-07-09

谢谢分享好物

回复引用

举报顶端

fffhxy

级别: 工作组

注册时间:: 2002-12-28

在线时间:: 1小时

发帖:: 5454

只看该作者 7楼发表于: 2006-07-12

引用
最初由 weilai 发布

那一段程式碼看了一下很單純
Private Sub ExitCommand_Click()

'紀錄位置
If Me.WindowState <> vbMinimized Then
SaveSetting App.Title, "Settings", "MainLeft", Me.Left
SaveSetting App.Title, "Settings", "MainTop", Me.Top
End If

Unload Me
End Sub

可能是第一次執行註冊表記錄位置之問題 (或由於是繁體windows編譯造成的...)
下次版本會加個
On Error Resume Next
的語法暫時解決

不知畫面上有無亂碼 (哪位朋友可以貼出來給我看一下嗎？)
或其他bug、建言 ?

俺用的简体中文
当时没有乱码

但是我把那些DLL们弄进SYSTEM32后重起电脑N天后再来用
关闭时没有出现那天的错误提示了...

星たちよ――
汝の命短き眷属の望みを聞くがよい。
我らの望み、それは――
汝の本降ちゆく末を看取ること――

不听我的话就把你的小裤裤剪掉

回复引用

举报顶端

weilai

级别: 版主

注册时间:: 2002-12-02

在线时间:: 0小时

发帖:: 3002

只看该作者 8楼发表于: 2006-07-14

引用
最初由 fffhxy 发布

俺用的简体中文
当时没有乱码

但是我把那些DLL们弄进SYSTEM32后重起电脑N天后再来用
关闭时没有出现那天的错误提示了...

哦～
那就好 ^^

目前在作另一作品 "下圖機器人"

回复引用

举报顶端

風之殤

级别: 超级版主

注册时间:: 2002-08-18

在线时间:: 181小时

发帖:: 14839

只看该作者 9楼发表于: 2006-07-14

有用的程式 @@

目前我是裝UN補完配WIN的搜索而已這個試試看

下圖機器人期待中

FREEWIND台湾，日本商品团购MSN群: group130599@xiaoi.com 欢迎入群讨论！！
贩售台湾正版CD，DVD,漫畫,輕小說,及台灣各種商品，采Door to Door服务有保障！！请大家告诉大家！！
※FREEWIND工作室官方掏宝店铺，请点我！！！※
※漫游FREEWIND工作室招募人才請點我！※
※漫游FREEWIND工作室作品汇总請點我！※
※漫游FREEWIND工作室招募分流FTP&P2P分流员請點我！※