Forum Discussion

DiegoRomero's avatar
DiegoRomero
New Contributor II
2 years ago
Solved

Question: Is there a way to clean up sub-folders within Batch?

We have been running several tests on DM jobs to upload batch files through the Harvest. We have a lot of subfolders created that we don't need anymore. Is there any way to delete?

Thanks!

Data Integration
Data Management
FileSystem
  • Keyser_Soze's avatar
    Keyser_Soze
    2 years ago

    Hello, 

    Here is a snippet of how to do so, all you need to do is add this 'Extensibility' business rule to a Data Management Step or launch it directly and you're set:

    Dim folderPath As String = "Applications\<Your Application Name>\Batch"  ' You can use si.AppName
Dim mylistofFolders As List(Of XFFolderEx)= BRApi.FileSystem.GetFoldersInFolder(si, FileSystemLocation.FileShare, folderPath, True, True)
For Each folder As XFFolderEx In mylistofFolders							
    If folder.XFFolder.Name <> "Harvest"									
         Dim configSettings As AppServerConfigSettings = AppServerConfig.GetSettings(si)								
         Dim sourceFolderPath As String = FileShareFolderHelper.GetBatchFolderForApp(si, True, configSettings.FileShareRootFolder, si.AppName) & "\" & folder.XFFolder.Name																 
         Directory.Delete(sourceFolderPath, True)
    End If
Next folder

     



  • Keyser_Soze's avatar
    Keyser_Soze
    Contributor
    2 years ago

    Hello, 

    Here is a snippet of how to do so, all you need to do is add this 'Extensibility' business rule to a Data Management Step or launch it directly and you're set:

    Dim folderPath As String = "Applications\<Your Application Name>\Batch"  ' You can use si.AppName
Dim mylistofFolders As List(Of XFFolderEx)= BRApi.FileSystem.GetFoldersInFolder(si, FileSystemLocation.FileShare, folderPath, True, True)
For Each folder As XFFolderEx In mylistofFolders							
    If folder.XFFolder.Name <> "Harvest"									
         Dim configSettings As AppServerConfigSettings = AppServerConfig.GetSettings(si)								
         Dim sourceFolderPath As String = FileShareFolderHelper.GetBatchFolderForApp(si, True, configSettings.FileShareRootFolder, si.AppName) & "\" & folder.XFFolder.Name																 
         Directory.Delete(sourceFolderPath, True)
    End If
Next folder

     



    • aricgresko's avatar
      aricgresko
      Contributor III
      2 days ago

      This was very helpful!  I repurposed your code snippet to delete Data Management Export files from File Share.

      From your snippet, you just need to change the folderPath string on row 1 to reference 'DataManagement' and on row 6 change 'GetBatchFolderForApp' to 'GetDataManagementFolderForApp'.