Question

TXT文件如何批量修改编码

正常创建的TXT或者网上下载下来的TXT文档默认的都是 ANSI 编码，有没有什么简单的办法可以批量的将大量的TXT文档的编码修改成 Unicode 这种形式。倘若是提供给我某软件，那一定要是绿色的，无需注册，且要简体中文版的。如果回答让我满意，方法简便，额外加分。请高手指点
我主要是在网上下载小说，那些免费的小说都是一个章节就是一个TXT文本的，所以 千羽之城 说的方法不适合我，请再指教

Answer 1

@echo off&color a
title TXT文本ANSI转UNICODE -by 314ccp-
set/p.=请将目录拖放此处：
cls & cd /d "%.%"
for /r %%a in (*.txt)do (
cmd /u /c "type "%%a">unicode.tmp"
copy unicode.tmp "%%a">nul
del unicode.tmp /q
)
echo 全部转换完成,可用WORD选Unicode验证了!
echo.
echo 按任意键打开目录！
pause>nul
start "" "%cd%"

打开批处理后将你要处理的目录拖放到光标处后回车！

Answer 2

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

代码更新，请实际路径调整。