Deleting multiple files from public folder

Hi 

I am trying to delete files saved in public folder via business rule.

Below BusinessRule.Extender works fine to delete the files from share folder.

Dim configSettings As AppServerConfigSettings = AppServerConfig.GetSettings(si)

'*** First Delete files from username folder created under Data Management->Export folder****
'------------------------------------------------------------------------------------------------------------

Dim xfolderPath As String = FileShareFolderHelper.GetDataManagementExportUsernameFolderForApp(si,True, configsettings.fileShareRootFolder,si.AppToken.AppName)
'**xfolderPath stores the path for DataManagementExportUsernameFolderForApp**

Dim filesToDelete As String = "TRF_Rules_*.xml" '; // Only delete all files which starts with names TRF_Rules*
Dim fileList = System.IO.Directory.GetFiles(xfolderPath, filesToDelete)
For Each file As String In fileList

'System.Diagnostics.Debug.WriteLine(file + "will be deleted");
System.IO.File.Delete(file)
Next

 

However if I follow similar rules to delete the files from public folder - it does not work .

------------------------------------------------------------------------------------------------------------
'Public folder files to delete

Dim newfolder As String = "TRF_Rules" '<-- This is the destination folder

Dim parentfolder As String = "Documents/Public" '<-- App Folder path where new folder will be added, may be updated

'Get full folder path to test

Dim PublicfolderPath As XFFolderEx = BRApi.FileSystem.GetFolder(si, FileSystemLocation.ApplicationDatabase, parentfolder & "/" & newfolder)

Dim filesToDelete2 As String = "TRF_Rules_*.xml" '<-- update this string with the name of the exported file

Dim targetDir As String = BRApi.FileSystem.GetFolder(si, FileSystemLocation.ApplicationDatabase, parentfolder & "/" & newfolder).XFFolder.FullName

Dim fileToDelete3 As String = filesToDelete2

Dim fileBytes1 As Byte() = File.ReadAllBytes(targetDir & "\" & fileToDelete3)

'brapi.ErrorLog.LogMessage(si, "FilestoDelete2 = " & FilestoDelete2) ' <-- comment/uncomment for testing/logging

Using dbConnApp1 As DBConnInfo = BRApi.Database.CreateApplicationDbConnInfo(si)

'Save file in User's Temp folder in application DB

'(This will be cleaned up automatically be OneStream platform When user's session expires)

Dim dbFileInfo1 As New XFFileInfo(FileSystemLocation.ApplicationDatabase, fileToDelete3, targetDir, XFFileType.Unknown)

dbFileInfo1.ContentFileContainsData = True

dbFileInfo1.ContentFileExtension = dbFileInfo1.Extension

Dim dbFile1 As New XFFile(dbFileInfo1, String.Empty, fileBytes1)

'BRApi.FileSystem.DeleteFile(si, fileBytes1)
'BRApi.FileSystem.DeleteFile(si, PublicfolderPath, filesToDelete2)

End Using

'*****Option -2 - Does not work*****
'Dim fileList2 = System.IO.Directory.GetFiles(targetDir, filesToDelete2)
'For Each file As String In fileList2

'System.Diagnostics.Debug.WriteLine(file + "will be deleted");
'System.IO.File.Delete(file)
'Next
'*****Option -2 - Does not work*****

Both the lines highlighted is not working currently and getting errors

 

 

Is there any way to delete the files in public folder via business rules ?