Открыть/сохранить файл VBS

Формулировка задачи:

Добрый день. Надеюсь пишу там, где надо.

                    Листинг программы
                
 
                        
                          
                    
Dim fso
  Dim strFileName
  Dim strFilePath
  Dim xlApp
  Dim xlBook
     
  Set fso = CreateObject("Scripting.FileSystemObject") 
 
  Set strFileName = fso.GetFileName("C:\D1")  
 
  If strFileName = "" Then
  WScript.Quit
  End If     
 
  Set xlApp = CreateObject("Excel.Application") 
  Set xlBook = xlApp.Workbooks.Open("C:\D1" & strFileName, 0, True)
  
  WScript.Sleep 10000
  xlApp.Workbook.SaveAs "C:\D2\test1.xls"
  xlApp.Wokrbook.Close
  
  Set xlBook = Nothing 
  Set xlApp = Nothing
  Set fso = Nothing
  Set strFileName = Nothing

Ну в общем выдаёт Object Required в строке Set strFileName = fso.GetFileName("C:\D1"). Прошу помочь и показать мне мои ошибки.

Решение задачи: «Открыть/сохранить файл VBS»

textual
                            Листинг программы 
                        
FileName = Dir(FilePath & "\*.xls")
Workbooks.Open fileName:=FilePath & "" & FileName