搜索 社区服务 统计排行 帮助
  • 1651阅读
  • 12回复

[下载]檔案清單列表機

楼层直达
级别: 版主
注册时间:
2002-12-02
在线时间:
0小时
发帖:
3002
這是本來自己使用花了一個工作天的時間製作並除錯而成的作品
在此分享給大家
更新版 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語系下顯示(使用)無誤

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

.效能稍微提升

级别: 工作组
注册时间:
2002-12-28
在线时间:
1小时
发帖:
5454
只看该作者 1楼 发表于: 2006-07-08
这个东东大好
感谢分享^^

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

不听我的话就把你的小裤裤剪掉
级别: 工作组
注册时间:
2002-12-28
在线时间:
1小时
发帖:
5454
只看该作者 2楼 发表于: 2006-07-08
请问在点击"离开"后
出现:
运行时错误'5':
无效的过程调用或参数

如何解决?

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

不听我的话就把你的小裤裤剪掉
级别: 精灵王
注册时间:
2003-12-28
在线时间:
6小时
发帖:
3532
只看该作者 3楼 发表于: 2006-07-08
没用过
下来试试
级别: 新手上路
注册时间:
2003-11-03
在线时间:
0小时
发帖:
247
只看该作者 4楼 发表于: 2006-07-08
感謝發布,下栽睞試用一下。
级别: 版主
注册时间:
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
谢谢分享好物
级别: 工作组
注册时间:
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天后再来用
关闭时没有出现那天的错误提示了...

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

不听我的话就把你的小裤裤剪掉
级别: 版主
注册时间:
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分流员 請點我!※

级别: 新手上路
注册时间:
2005-07-29
在线时间:
0小时
发帖:
140
只看该作者 10楼 发表于: 2006-07-20
厉害啊 呵呵


我是饭丝
级别: 工作组
注册时间:
2003-08-26
在线时间:
13小时
发帖:
6600
只看该作者 11楼 发表于: 2006-07-20
我是直接dir xxxxx /s了……也很快很好用……

催片请点此处: http://bbs.popgo.org/bbs/read.php?tid=502402&displayMode=1#19103164
级别: 新手上路
注册时间:
2003-06-23
在线时间:
1小时
发帖:
2882
只看该作者 12楼 发表于: 2006-07-20
水木上cygwin的find....

不学无术中..

eMule ID:[eDtoon][CHN]adamhj@eMule-Official
快速回复

限150 字节
上一个 下一个