摘要：
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 岳洋 阅读(180) 评论(0) 推荐(0)
浙公网安备 33010602011771号