2012-10-27 25 views
1

這似乎是最基本的東西。在谷歌上有很多例子,我把它們放到我的代碼中,並得到了相同的結果。檢查一個目錄是否存在與LotusScript

我相信我錯過了特定於該語言的東西,而且它真的變得令人不快。

鑑於

pathName$ = "..\..\images\" + artID + "\" + artNum + "\" 
    dirTest$ = "..\..\images\" + artID + "\" 
    If Dir$(pathName$ , ATTR_DIRECTORY) = "" Then 
     MsgBox "No Dir" 
    Else 
     MsgBox "Dir Found!" 
    End If 

(寄託都被正確地變灰)

我已經把MSGBOX的前pathName將$和DIR調用之前對的,但是當它到達測試失敗。我知道在某些情況下目錄不存在,但我想要捕獲該錯誤,而不是在無法找到目錄時腳本崩潰。

我試過DIR (path,16) DIR$(path,16) DIR (path$,16) DIR$(path$,16)以及ATTR_DIRECTORY關鍵字。

我該如何優雅地檢查Lotuss的目錄是否存在?

回答

8

如果該目錄不存在,則Dir $命令將生成運行時錯誤代碼76。所以,你可以捕獲通過添加On Error 76 Resume Next到您的代碼運行時錯誤:

pathName$ = "..\..\images\" + artID + "\" + artNum + "\" 
dirTest$ = "..\..\images\" + artID + "\" 
On Error 76 Resume Next 
If Dir$(pathName$ , ATTR_DIRECTORY) = "" Then 
    MsgBox "No Dir" 
Else 
    MsgBox "Dir Found!" 
End If 

靈感:http://searchdomino.techtarget.com/tip/Finding-files-and-directories-with-LotusScript

+0

,對於一些信息的網站是偉大的,但無法快速登錄,請參閱文章停止我的每時間。我會嘗試代碼併發回 –

+0

實際上,您不需要登錄。只是向下翻頁,你會看到內容。 –