摘要：
Subfindfile()Subfindfile(ByReffdAsScripting.Folder,ByValctAsInt16)DimsfdAsScripting.FolderDimfAsScripting.FileForEachfInfd.FilesTextBox1.Text=TextBox1.Text+Chr(13)+Chr(10)+Space(ct*2)+f.NameNextForEac... 阅读全文
posted @ 2006-01-31 19:52 岳洋 阅读(177) 评论(0) 推荐(0) 编辑