在現有文件上找不到'文件未找到'錯誤

我在這個小腳本的'DeleteFile'行中有時會出現'找不到文件'的錯誤：（我想當幾個客戶端同時打開腳本時）在現有文件上找不到'文件未找到'錯誤

if objFSO.FileExists(fileName) then 
    Set f = objFSO.GetFile(fileName) 
    if DateDiff("d", f.DateLastModified, date()) > 3 then 
     Application.Lock 
     objFSO.DeleteFile(fileName) 
     Application.Unlock 
    end if 
    Set f = nothing 
end if

但是這應該受到第一行'FileExists'的保護？有什麼想法？謝謝。

來源

2014-10-26 Chrigou

什麼是'Application.Lock'和'Application.Unlock'語句？你沒有在代碼中對應用程序變量做任何事情，所以他們沒有意義？ – Lankymart 2014-10-27 05:10:50

您正遇到競賽狀況。文件屬性緩存在GetFile的第二行。如果該文件存在，該代碼將繼續運行。您需要在該點之前鎖定，或刷新屬性緩存並在Application.Lock後仔細檢查存在。

來源

2014-10-26 20:25:47 Zenexer

好像你可以使用鎖來包裝你的if語句，而不是將它們嵌入到if語句中。 – Dee 2014-10-27 03:37:43

@Dee「鎖」沒有意義，因爲沒有應用程序變量被操縱。讓他們在那裏什麼都不做，並且不會**停止OP正在經歷的行爲。 – Lankymart 2014-10-27 05:14:44

謝謝，我認爲這是一個這樣的問題，但不知道... – Chrigou 2014-10-27 09:44:27

在現有文件上找不到'文件未找到'錯誤

回答

相關問題