如何创建文本文件并在vbscript中写入它

Question

我有以下脚本来查找计算机上的所有访问文件:

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colFiles = objWMIService.ExecQuery _
    ("Select * from CIM_DataFile Where Extension = 'mdb' OR Extension = 'ldb'")

For Each objFile in colFiles
    Wscript.Echo objFile.Name
Next

对于vbscript,我非常业余.如何让脚本将每一行写入名为"Results.txt"的文本文件,而不是回显到对话框？

另外,作为奖励,如何包含每个Access文件的修改日期？

Answer 1

这就是你要找的东西.在这部分中:("C:\ test.txt",8,True),第一个参数是文件的路径.第二个参数是iomode选项.第二个参数有三个选项,1个用于读取,2个用于写入,8个用于追加.第三个参数是布尔值,true表示如果新文件不存在,则可以创建新文件.False表示无法创建新文件.

Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")

Set OutPutFile = FSO.OpenTextFile("C:\test.txt" ,8 , True)
OutPutFile.WriteLine("Writing text to a file")

Set FSO= Nothing