中国DOS联盟

请教一个vbs问题

我想编一个vbs脚本，功能是在 C:\Documents and Settings\user\ 下建立一个xml的配置文件。现在存在2个问题

1. 因为user不确定，所以需要用 %homepath% 定位目录，在vbs中如何用
2. 另外就是如何创建一个 xml文件，同时写入内容。内容中包括有 " <>,.!? 空格 " 等符号


请高手指点，谢谢

获取系统特殊目录方法：

Set WshShell=Wscript.CreateObject("Wscript.Shell")

Set WshSysEnv=WshShell.Environment("Process") 

strFolder=WshSysEnv.Item("USERPROFILE") 

Wsh.Echo strFolder

创建文本方法：

Set objFSO = CreateObject("Scripting.FileSystemObject") 

Set f = objFSO.CreateTextFile("......", True) 

f.WriteLine "........"

谢谢，系统目录可以取了

写文本文件这个好像不行，
因为 xml 文件格式是这样的，包含各种字符。 writeline 只能写普通文本

<?xml version="1.0" encoding="UTF-8" ?>
<records>
<address filename="h01.xml" name="h01">
<ip address="192.168.1.1"/>
<email address=""/>
</address>
</records>

MsgBox "<?xml version=""1.0"" encoding=""UTF-8"" ?>" & vbCrLf & "<records>" & vbCrLf & "<address filename=""h01.xml"" name=""h01"">" & vbCrLf & "<ip address=""192.168.1.1""/>" & vbCrLf & "<email address=""""/>" & vbCrLf & "</address>" & vbCrLf & "</records>"

楼上已提示：双引号是VBS特殊符号，附加的要加多一个双引号转义。

Set WshShell=Wscript.CreateObject("Wscript.Shell")

Set WshSysEnv=WshShell.Environment("Process") 

strFolder=WshSysEnv.Item("USERPROFILE") 



Set fso=CreateObject("Scripting.FileSystemObject")

Set f=fso.CreateTextFile(strFolder&"\h01.xml",ture)



f.WriteLine("<?xml version=""1.0"" encoding=""UTF-8"" ?>")

f.WriteLine("<records>")

f.WriteLine("        <address fname=""h01.xml"" name=""h01"">")

f.WriteLine("                <ip address=""192.168.1.1""/>")

f.WriteLine("                <email address=""""/>")

f.WriteLine("       </address>")

f.WriteLine("</records>")

f.Close

多谢指点