Vbscript 创建行并将行写入文件

是否可以在vbscript中创建文件并向其写入行

类似于bat文件中的回声（

echo Something>>sometextfile.txt

）的东西

根据脚本路径执行vbscript时，将创建一个autorun.inf文件以执行特定程序（\smartdriverbackup\sdb.exe）

---

另外，如何从完整的文件路径中剥离/删除驱动器号？

您需要处理。查看此方法示例。

感谢ghostdog74的回答。我尝试了该脚本。它很有效。我需要将其应用到实际应用程序中。我在使用倒逗号编写文本行时遇到问题，例如：这是一个“测试”“字符串”。此外，如果我想用倒逗号编写变量值，我不能。您必须转义引号。试一试

“

我到底该如何转义引号？做一个

Wscript.Echo”测试“”

，然后看看。@hdgarood，如果你进入一辆车，发现方向盘不见了或隐藏在视线之外，如果你寻求帮助，你会是一个“帮助吸血鬼”吗？每个人都必须重新发明方向盘，因为之前的人太懒了，无法正确实施F1（或者他们这样做是为了创造“咨询”的需求——你知道它是如何运作的）我对这个答案投了赞成票，因为它为提问者指出了正确的方向，同时仍然要求他/她做一些研究和思考，而不是为他/她做所有的工作。（虽然我很后悔使用“帮助吸血鬼”这个短语），但我不是来学习VBScript的。我在这里写一个脚本，它只不过是把一个字符串写到一个文件中，而且（如果一切按计划进行的话）我再也不会接触这种语言了。如果这让我成了一个“帮助吸血鬼”，那就随它去吧。它不能在Excel中为Mac工作。我收到“activex组件无法创建对象”错误。Mac也有类似的功能吗？

Set objFSO=CreateObject("Scripting.FileSystemObject")

' How to write file
outFile="c:\test\autorun.inf"
Set objFile = objFSO.CreateTextFile(outFile,True)
objFile.Write "test string" & vbCrLf
objFile.Close

'How to read a file
strFile = "c:\test\file"
Set objFile = objFS.OpenTextFile(strFile)
Do Until objFile.AtEndOfStream
    strLine= objFile.ReadLine
    Wscript.Echo strLine
Loop
objFile.Close

'to get file path without drive letter, assuming drive letters are c:, d:, etc
strFile="c:\test\file"
s = Split(strFile,":")
WScript.Echo s(1)

' Create The Object
Set FSO = CreateObject("Scripting.FileSystemObject")

' How To Write To A File
Set File = FSO.CreateTextFile("C:\foo\bar.txt",True)
File.Write "Example String"
File.Close

' How To Read From A File
Set File = FSO.OpenTextFile("C:\foo\bar.txt")
Do Until File.AtEndOfStream
    Line = File.ReadLine
    WScript.Echo(Line)
Loop
File.Close

' Another Method For Reading From A File
Set File = FSO.OpenTextFile("C:\foo\bar.txt")
Set Text = File.ReadAll
WScript.Echo(Text)
File.Close