Forum Discussion

jrodgers's avatar
jrodgers
New Contributor II
10 months ago

Move file from File Explorer to File Share

I need to create a business rule that will move a file from a user's folder in File Explorer to the server's File Share. I am using the BRApi.FileSystem.GetFile method to successfully read the file, ...
Extenders
  • manthangandhi's avatar
    manthangandhi
    10 months ago

    Hi Jrodgers,

    You can try the follwoing apprach to move the file from the user's public directory to File Share > applications > Groups > Everyone directory. I hope this is what you're looking for.

    'Get the file
     Dim sourceXFFileEx As New XFFileEx
     Dim sourceDir As String = "Documents/Users/" & si.UserName.Replace(" ","")
     Dim sourceFile As String = "test_move.txt"
     sourceXFFileEx = BRApi.FileSystem.GetFile(si, FileSystemLocation.ApplicationDatabase, sourceDir & "/" & sourceFile,True,True)
     
    'Save the file but this part is not working  
     Dim tgt = brapi.FileSystem.GetFolder(si, FileSystemLocation.FileShare, "Applications/"& si.AppName.Replace(" ", String.Empty) & "\Groups\Everyone\").XFFolder.ParentFullName
     Dim targetFileDataInfo As New XFFileInfo(FileSystemLocation.FileShare, sourceFile, tgt )
     Dim targetFileData As New XFFile(targetFileDataInfo, String.Empty, sourceXFFileEx.XFFile.ContentFileBytes)
     BRApi.FileSystem.InsertOrUpdateFile(si, targetFileData)

     

SandeepSingh's avatar
SandeepSingh
New Contributor
2 months ago

Hi

Need some help please. My requirement is opposite, i want to move the file from File Share to File Explorer. Based on above response i created a extender BR as below. I am trying to move the file From Application/ApplicationName/DM/Export/Username To File Folder Documents//Public/Reports_Books.

when i am running the script i get this message -  1) Business Rule execution failed. Unable to load class 'OneStream.BusinessRule.Extender.SGA_FIle_Move.MainClass'.

===============================================================================================

Namespace OneStream.BusinessRule.Extender.SGA_File_Move
Public Class MainClass
Public Function Main(ByVal si As SessionInfo, ByVal globals As BRGlobals, ByVal api As Object, ByVal args As ExtenderArgs) As Object
Try
Select Case args.FunctionType
 
Case Is = ExtenderFunctionType.ExecuteDataMgmtBusinessRuleStep
'Get the file
Dim sourceXFFileEx As New XFFileEx
Dim sourceDir = brapi.FileSystem.GetFolder(si, FileSystemLocation.FileShare, "Applications/"& si.AppName.Replace(" ", String.Empty) & "\DataManagement\SandeepSingh\").XFFolder.ParentFullName
Dim sourceFile As String = "SGAData.csv"
sourceXFFileEx = BRApi.FileSystem.GetFile(si, FileSystemLocation.ApplicationDatabase, sourceDir & "/" & sourceFile,True,True)
 
'Save the file but this part is not working  
'Dim tgt = brapi.FileSystem.GetFolder(si, FileSystemLocation.FileShare, "Applications/"& si.AppName.Replace(" ", String.Empty) & "\Groups\Everyone\").XFFolder.ParentFullName
Dim tgt As String = "Documents//Public/Reports_Books/"
Dim targetFileDataInfo As New XFFileInfo(FileSystemLocation.FileShare, sourceFile, tgt )
Dim targetFileData As New XFFile(targetFileDataInfo, String.Empty, sourceXFFileEx.XFFile.ContentFileBytes)
BRApi.FileSystem.InsertOrUpdateFile(si, targetFileData)
 
 
End Select
 
Return Nothing
Catch ex As Exception
Throw ErrorHandler.LogWrite(si, New XFException(si, ex))
End Try
End Function
End Class
End Namespace
===================================================================================================
  • KarlT's avatar
    KarlT
    Contributor III
    2 months ago

    That error message sounds like a more fundamental issue to the business rule - is "SGA_FIle_Move" the name of the business rule?