將nfile設為字符串
將lstr標註為字符串
文本1。文本=““
nfile = FreeFile
打開文件1。路徑與方法。“\“& amp；file 1 . list（file 1 . listindex）for binary as file‘打開指定的文件內容。
文本1。text = Input（LOF（nfile），nfile）
關閉nfile
末端接頭
私有子窗體_Load（）
文件1。path =“E:\所有文件\a“
文件1。模式=“*。txt "
將I設為整數
對於i = 0到文件1。列表計數- 1
打印文件1。清單（壹）
接下來我
末端接頭