VBScript打开文件夹中具有相同扩展名的所有文件

Question

我是VBScript的新手，并且遇到了以下问题。

我有一个文件夹，其中包含一些扩展名为.qvw的文件，我想打开所有这些文件，然后将其关闭。

我找不到能完成此任务的解决方案。

sFolder = "C:\test\"
Set oFSO = CreateObject("Scripting.FileSystemObject")

For Each oFile In oFSO.GetFolder(sFolder).Files
  If LCase(oFSO.GetExtensionName(oFile.Name)) = "QVW" Then
    Set App = CreateObject("QlikTech.QlikView")
    Set newdoc = App.opendoc 
    newdoc.Activate
    newdoc.save
    newdoc.closedoc
  End if
Next​