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​