【求助】物件變數錯誤

[小熊逛大街]

大家好
請問一下一個關於巨集的問題

小弟之前買了台新NB所以灌了office 2002來跑之前寫好的巨集
可是突然出現以下錯誤

  Function getFielPath(fileName) As String
        Set fs = CreateObject("Scripting.FileSystemObject")
        getFielPath = fs.GetParentFolderName(Workbooks(1).Path & fileName) & "\" + fileName
  End Function

錯再第三行,可是很奇怪到別人電腦上一切正常
我也把office重裝成office2003,結果還是一樣

為什麼別人多可以執行只有我不可以呢?office版本也跟其他一樣

不知道有沒有人遇過這種問題?或是知道該如何解決嗎?