中国DOS联盟

有这样的文件：

01 이정현 - 00001.txt
02 이정현 - GX 339-4.txt
03 이정현 - Bird.txt
04 이정현 - 바꿔.txt

如何输出？输出到List.txt里！
我的代码，不知道为什么不行！

Dim FSO,s
Set FSO=CreateObject("Scripting.FileSystemObject")
Set AllF=FSO.GetFolder(fso.GetParentFolderName (WScript.ScriptFullName ))

For Each file In AllF.Files
s=s&file.name&VbCrLf

Next

Set FW=FSO.CreateTextFile("List.txt",1)
MsgBox s
FW.Write s
FW.Close
Set FW=Nothing

=======
s变量可以正确地弹出来，但是就没办法写入！想请教为什么！！
如何解决呢？

本想上传附件来方便一点的，但没办法上传了！哎！

Set FSO=CreateObject("Scripting.FileSystemObject")
Set files=FSO.OpenTextFile("data.txt",1,False,-1)
msg=files.ReadAll
files.Close
Set files=FSO.OpenTextFile("OUT.txt",2,True,-1)
files.Write msg
files.Close
Msgbox msg,0,"Unicode"

注意的是，韩文要保存在data.txt文件中，以UTF编码格式保存。

怪不得怎么试也不行...
高人啊，佩服！

[ Last edited by jmz573515 on 2007-3-23 at 10:30 PM ]

请问，保存成UFT格式的，就是那多加一个设置成-1吗？

太感谢了！

我生成的文本文件，看上去，是黑粑粑，但用Word打开就是韩文了，正常吗？

正常,你把你的记事本时的字体改一改就行了.

感谢贵人！！