执行 vbscript(?) 代码：自动打开目录中的新文件

Question

我是 vbs-,Powershell-, ... 编码的新手

我需要构建一些东西来检查特定目录中的新文件并自动打开所有新添加的文件。

我发现这个 post 似乎完全符合我的需要：https://devblogs.microsoft.com/scripting/how-can-i-automatically-open-new-files-added-to-a-folder/

我根据我的情况调整了代码：

Set objShell = CreateObject(“Wscript.Shell”)

strComputer = “.”
Set objWMIService = GetObject(“winmgmts:\” & strComputer & “\root\cimv2”)
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
    (“SELECT * FROM __InstanceCreationEvent WITHIN 1 WHERE ” _
        & “Targetinstance ISA ‘CIM_DirectoryContainsFile’ and ” _
            & “TargetInstance.GroupComponent= ” _
                & “‘Win32_Directory.Name=””T:\\Reporting\\AutoOpen””‘”)
Do
    Set objLatestEvent = colMonitoredEvents.NextEvent
    strNewFile = objLatestEvent.TargetInstance.PartComponent
    arrNewFile = Split(strNewFile, “=”)
    strFileName = arrNewFile(1)
    strFileName = Replace(strFileName, “\”, “\”)
    strFileName = Replace(strFileName, Chr(34), “”)
    objShell.Run(“excel.exe ” & strFileName)
Loop

令人遗憾的是，上面的 post 没有包含有关如何实际使用代码或它是什么编程语言的详细信息：D

我假设这个片段是针对 vbscript 的。当我将它放入 .vbs 文件并执行时，我收到错误消息“无效字符，第 1 行，第 29 行，编译错误，...”-> 此字符是第 1 行中的第一个引号。

所以我也尝试了 powershell，但似乎代码也不适合那里。

... 那么这到底是什么代码呢？我怎样才能把它放在一个可执行文件中？

在此先感谢您。

Answer 1

您使用的斜引号或 弯引号 “.” 在 vbscript 代码中无效。

你应该用普通的双引号替换它们 "

诸如 MS Word 之类的应用程序倾向于将常规引号转换为这些倾斜的引号，因此这可能是您从中获取它们的地方。

执行 vbscript(?) 代码：自动打开目录中的新文件

excecuting vbscript(?) code: automatically open new files in a directory

windows

vbscript

powershell

automation