1

这似乎是最基本的事情。google 上有很多例子,我把所有的例子都放到了我的代码中,并且得到了相同的结果。

我相信我错过了该语言特有的一些东西,这真的很烦人。

给定

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 关键字。

如何优雅地检查 Lotusscript 中目录的存在?

4

1 回答 1

9

如果目录不存在,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

于 2012-10-27T04:31:07.507 回答