第1个回答 2009-09-10
Const ForReading = 1
Const ForWriting = 2
strFolder = "e:\temp\temp"
oFolder = "e:\temp\new\"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("Wscript.Shell")
Set objFolder = objFSO.GetFolder(strFolder)
objFSO.CreateFolder(oFolder)
Set colFiles = objFolder.Files
For Each strFile in colFiles
Set objFile = objFSO.OpenTextFile(strFile,ForReading,TristateTrue)
colLines = objFile.ReadAll
objFile.Close
Set objFile = objFSO.CreateTextFile(oFolder & strFile.Name,,True)
objFile.Write colLines
objFile.Close
Next
Set objFSO = Nothing
Set WshShell = Nothing
代码更新,请实际路径调整。