When creating a folder using a Task or Profile, please, do not forget to add the backslash at the end of the path, otherwise, it will remove the folder if it already exists > see attached file
You can modify the dmCreateFolder function of the DskMgrSubLib as below to avoid this side-effect :
Sub dmCreateFolder(doc_ui As NotesDocument, field_name As String, language As String, folder_path_param As String, doc_user As NotesDocument)
Dim start_time As Single
Dim error_code As Long
Dim error_message As String
Dim folder_path As String
' ## Create Folder & SubFolders
start_time = Timer()
' # Add \ at the end of the Path
folder_path = folder_path_param
If Len(folder_path) > 0 Then
If Right$(folder_path,1) <> "\" And Right$(folder_path,1) <> "\" Then folder_path = folder_path + "\"
End If
' # Create Folder
Call DisplayInfo(doc_ui, field_name, 180, language,folder_path,"") ' Create folder + folder_path
End Sub
Regards,
Comments
0 comments
Please sign in to leave a comment.