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

Answer 2

像SELECT t1.*, t2.price FROM movie t1 LEFT JOIN film t2 ON t1.id = t2.id这样的简单Google搜索将为您提供有关如何解决此问题的大量信息。无论如何，这是最简单的一个让你开始。

"vbscript create and write to text file"

Answer 3

使用FileSystemObject的。CreateTextFile方法创建文本文件。仔细研究文档/样本。

CIM_DataFile具有[self dismissViewControllerAnimated:NO completion:^{ contentViewController.modalPresentationStyle = UIModalPresentationPopover; [[self presentViewController:contentViewController animated:NO completion:^{ // completion code }]; contentViewController.popoverPresentationController.backgroundColor = [UIColor purpleColor]; }];属性。

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

3 个答案: