vbscript - 无论文件类型如何，如何关闭任何打开的文件

Question

我创建了一个函数来打开任何有效文件，现在我想关闭打开的文件。输入文件可以是任何有效的文件类型：.docx、.bmp、xlsx 等。

我试图制作WScript对象并尝试使用下面的代码关闭文件，但它不起作用。

Public Function openfile(filepath)
    Set ws = CreateObject("WScript.Shell")
    ws.Run filepath 
    'taking the screen shot of opened file 
End function

Public Function closefile(filepath)
    Set ws = CreateObject("WScript.Shell")
    ws.AppActivate (filepath)
    ws.Terminate
End function

但是，我无法关闭打开的文件并出现错误。文件可以是任何有效的文件类型，我只会在运行时知道。我们已经有了更新打开的 .txt 和 Excel 文件的功能。

任何人都可以帮我找出如何关闭已经打开的文件，而不管文件类型如何？

标签： vbscriptqtphp-uft