.版本2

.支持庫iext

.程序集窗口程序集1

.程序集變量文件名,文本型

.子程序_按鈕1_被單擊

文件名＝尋找文件(取運(yùn)行目錄()＋“\”＋“*”,)

.如果真(文件名＝“”)

返回()

.如果真結(jié)束

.判斷循環(huán)首(文件名≠“”)

.如果真(文件名≠“.”且文件名≠“..”)

.如果真(尋找文本(文件名,編輯框1.內(nèi)容,,假)＞-1)

超級(jí)列表框1.插入表項(xiàng)(,文件名,,,,)

.如果真結(jié)束

.如果真結(jié)束

文件名＝尋找文件(,)

.判斷循環(huán)尾()