Question

我有一个代理来列出和删除Domino临时文件夹中的文件：

523 #ifndef atomic_forced_read
524 # define atomic_forced_read(x) \
525   ({ __typeof (x) __x; __asm ("" : "=r" (__x) : "0" (x)); __x; })
526 #endif

脚本库：

Sub Initialize
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Set db = session.CurrentDatabase
    Print "-- running from db " + db.Notesurl
    Set filelist = New HandleFilesInDirectory("D:\IBM\Domino\Temp\notes53F5BD\xspupload\")
    'Set filelist = New HandleFilesInDirectory("D:\IBM\Domino\Temp\notes53F5BD\")
    Call filelist.GetFilesOnDisk()
'%REM
    Print "Directory List Starts"   
    ForAll x In filelist.m_SumDirs
        Print ListTag(x)
    End ForAll
'%END REM   
'%REM   
Print "File List Starts"    
    ForAll y In filelist.m_SumFiles
        Print ListTag(y)
        Kill y
    End ForAll
'%END REM
    Call filelist.EraseListFromMemory()
End Sub

返回以下输出：

[02D4：0002-0C68] 2019-09-24 16:19:19 AMgr：代理（'KKom \ patrick \ app.nsf'中的'GetMyFiles'）打印：D：\ IBM \ Domino \ Temp \ notes53F5BD \ xspupload \ placeholder.txt [02D4：0002-0C68] 2019-09-24 16:19:19 AMgr：代理（“ KKom \ patrick \ app.nsf”中的“ GetMyFiles”）错误消息：路径/文件访问错误

为代理签名正确的ID，并将运行时安全级别设置为3

有人可以解释我做错了什么吗？

无法从Domino tmp文件夹中删除文件-路径/文件访问错误

0 个答案: