我有一個vbs，在win7的環境下，是可正常執行的
但至win2000server執行時，會出現「找不到檔案800a0035」的錯誤訊息

這是為什麼呢？
請指教~Option Explicit Const DeleteReadOnly = True Dim fs, daysago, dirpath, filename, extName, movpath Dim f Dim ff Dim fc, databefore, filedate Dim W daysago = 1 '路徑 dirpath = "D:\test\1" movpath = "D:\test\1\bak" filename = "1_*" ';;;;;程式開始;;;;; Set fs = CreateObject("Scripting.FileSystemObject") Set w = WScript.CreateObject("WScript.Shell") Set f = fs.GetFolder(dirpath) Set fc = f.Files databefore = Now() - daysago For Each ff in fc fileDate = ff.DateLastModified If Right(fileName, extName) = extName And filedate < databefore Then fs.MoveFile dirPath &"\"& fileName, movPath End If Next

---