帮忙看看 我这个删除VBS哪里有问题啊？

Question

Dim WBname strPath = "C:\Documents and Settings\1"Set objExcel = CreateObject("Excel.Application")
objExcel.DisplayAlerts = False
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set FileList = objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_Directory.Name='" & strPath & "'} Where " & "ResultClass = CIM_DataFile")
For Each objFile In FileList
    If objFile.Extension = "xls" Then
        UpdateFile objFile.Name
    End If
Next
objExcel.QuitSub UpdateFile(strXlsFile)
 '   On Error Resume Next
    Set objWorkbook = objExcel.Workbooks.Open(strXlsFile,,,,strOldPassword,strOldWritePassword,True)
    For Each WBname In objWorkbook.Names
    If Not WBname.Name Like "*!Print_Area" And _
        Not WBname.Name Like "*!Print_Titles" Then
        WBname.Delete
    End If
    Next    objWorkbook.Save
    objWorkbook.Close
End Sub

Answer 1

俺试过了，代码没有问题，只是文件路径好像定义错了，找不到文件，因此后面的代码无法运行，改变路径或复制文件到指定路径后，代码就可以运行了。
LZ的代码真的有点奇怪，俺从未想过VBS居然还可以这样用，有意思。