Dim d As StringOpen "c:\dir.txt" For Output As #1 '结果导出到c:\dir.txtd = Dir("d:\abc\*.*") '获得d:\abc文件夹下的所有文件名Do Until d = "" Print #1, d d = DirLoopClose #1
学习了，D。支持网海1书生
