TextStream

Sub test3() '标准输出-查找相关目录下所有的GIF格式文件。 Dim TS1 As IWshRuntimeLibrary.TextStream Dim TS2 As IWshRuntimeLibrary.TextStream Set WShell = New IWshRuntimeLib ......