.版本2.支持庫eAPI .子程序_按鈕1_被單擊.局部變量文本數組,文本型,,"0".局部變量i,整數型 文本數組＝取驅動器列表(1) '這裏枚舉出硬盤分區根目錄.計次循環首(取數組成員數(文本數組),i) 遍歷目錄(文本數組[i]) 處理事件().計次循環尾() .子程序遍歷目錄.參數參目錄,文本型.局部變量文件名,文本型.局部變量目錄數組,文本型,,"0".局部變量i,整數型.局部變量文件類型 文件類型＝位或(#存檔文件,#只讀文件,#系統文件,#隱藏文件)文件名＝尋找文件(參目錄＋“\*.*”,文件類型).如果真(文件名＝“”) 返回().如果真結束 .循環判斷首() .如果(位與(取文件屬性(參目錄＋“\”＋文件名),#子目錄)≠0)
加入成員(目錄數組,文件名) .否則
.如果真(文件名＝“123.dll”) '判斷文件是否存在
信息框(“123.dll”,0,) '如果存在彈出壹個信息框
返回() '然後終止搜索
.如果真結束
.如果結束 文件名＝尋找文件(,文件類型).循環判斷尾(文件名≠“”) .計次循環首(取數組成員數(目錄數組),i) .如果真(目錄數組[i]≠“.”且目錄數組[i]≠“..”)
遍歷目錄(參目錄＋“\”＋目錄數組[i]) .如果真結束 .計次循環尾()
代碼結束 控件只需要壹個按鈕，名稱為按鈕1