Vista - Bulk Convert .TXT Files to Unicode

Hello,

I have a directory containing 300 .txt files in ANSI that I need
converted to Unicode. Rather than opening each file in Notepad and
saving as Unicode, I'm *really* hopeful that there's a smarter way to
do this.

Can somebody point me to a script (or other technique) that could save
me a ton of time?

Thanks!

-Ben

On Nov 18, 3:52 pm, bwi...@xxxxxx wrote:Assuming ALL of the files in the directory are ANSI and you want to
convert them all.
If all of the files in the directory are your text files you can get
rid of the If statement.
This should do the trick.

Set fso = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder("C:\Temp")
Set oFiles = oFolder.files

For each file in oFiles
If Right(file.Name, 3) = "txt" Then
Set ANSIFile = fso.OpenTextFile(file.path, 1, False, False)
ANSIContent = ANSIFile.ReadAll
Set UNICODEFile = fso.OpenTextFile(file.path, 2, False, True)
UNICODEFile.Write ANSIContent
End If
Next