Code '遍历文件夹 sub ListFolderContents(path) dim fs, folder, file, item, url set fs =CreateObject("Scripting.FileSystemObject") set folder = fs.GetFolder(path)
CodeCode highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->遍历文件夹sub ListFolderContents(path) dim fs, folder, file, item, url set fs = CreateObjec