搜索 2 个文件并删除它们 VBScript

Question

我正在构建一个脚本，它会在 office 安装目录中搜索 2 个 *.dot 文件（1.dot 和 2.dot），如果找到它们就会删除它们。

我将如何管理它？它必须在 VBScript 中

注意：我已经让它搜索已安装的 Office 版本，它返回基本安装路径（IE：C:\Program Files\Microsoft Office %Version%）所以我需要它从那里搜索文件.

这是我目前用来查找这些文件的内容（但没有运气 - 它返回所有 *.dot 文件）

dim sFilename

Dim objDict
Set objDict=CreateObject("Scripting.Dictionary")
sFilename = ""

fileLocation=Session.Property("OFFICEPATH") 'this is a stored path from InstallShield = C:\Program Files\Microsoft Office %Version%\

Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")

Call Recurse(fileLocation)



ItemArray = objDict.Items


For i = 0 To objDict.count -1
    sFilename = sFilename & ItemArray(i) & VBCRLF
Next 

msgbox(sFilename)

'find a specific file by name and return path 
if objDict.Exists("1.dot") then 
    msgbox(objDict.Item("1.dot")) 
end if

'find a specific file by name and return path 
if objDict.Exists("2.dot") then 
    msgbox(objDict.Item("2.dot")) 
end if


Sub Recurse(strFolderPath)
    Dim objFolder
    Set objFolder = objFSO.GetFolder(strFolderPath)
    Dim objFile
    Dim objSubFolder

    For Each objFile In objFolder.Files
        If (InStr(objFile.Name, ".") > 0) Then

            If (LCase(Mid(objFile.Name, InStrRev(objFile.Name, "."))) = ".dot") Then 
                if objDict.Exists(objFile.Name)=false then 
                objDict.Add objFile.Name,objfile.Path 
                End if 
            End if 
        End If 
    Next

    For Each objSubFolder In objFolder.SubFolders
        Call Recurse(objSubFolder.Path)
    Next
End Sub

Answer 1

发现问题 - 这个：

fileLocation=Session.Property("OFFICEPATH")

需要一个斜杠：

fileLocation=Session.Property("OFFICEPATH")+"\"

由于某种原因，没有尾部斜杠的文件没有被拾取。