The OneStream Community is temporarily frozen until June 29th due to the ongoing maintenance. Please read the blog post here to learn more.

Forum Discussion

Koemets's avatar
Koemets
Contributor
3 years ago
Solved

Documents\Public location

Got a task to copy certain file from FileShare to Documents\Public because users security settings. Wanted to go with the standard System.IO.File.Copy(strSourceFile,strTargetFile) where source and ta...
Admin
  • db_pdx's avatar
    db_pdx
    3 years ago

    The methods you need are under BRApi.Filesystem:

    • BRApi.FileSystem.GetFile
      BRApi.FileSystem.InsertOrUpdateFile
    • BRApi.FileSystem.GetFileShareFolder

    Here's a mock example that just copies a file from a user's document folder and changes the name.  You'll need to swap the sourceFile/sourceDir pieces with FileShare pieces from BRApi.FileSystem.GetFileShareFolder according to your needs.

    'Source file
Dim sourceFile As String = "SomeCSV.csv"
Dim sourceDir As String = $"Documents/Users/{StringHelper.RemoveInvalidNameCharacters(si.UserName,False,False)}"
'Target File
Dim targetFile As String = "CopiedFile.csv"
Dim targetDir As String = sourceDir
				
'Get the file
Dim sourceXFFileEx As New XFFileEx
sourceXFFileEx = BRApi.FileSystem.GetFile(si, FileSystemLocation.ApplicationDatabase, sourceDir & "/" & sourceFile,True,True)
												
'Save the file				
Dim targetFileDataInfo As New XFFileInfo(FileSystemLocation.ApplicationDatabase, targetFile, targetDir)
Dim targetFileData As New XFFile(targetFileDataInfo, String.Empty, sourceXFFileEx.XFFile.ContentFileBytes)
BRApi.FileSystem.InsertOrUpdateFile(si, targetFileData)

     

HenriR's avatar
HenriR
Icon for OneStream Employee rankOneStream Employee
3 years ago

Hi Koemets,

 

Would this be useful to get the full path to the target directory ?

 

'Folder to Create

		Dim newPath As String = "Consolidation" '<-- This is the destination folder

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


'Get full folder path to test

		Dim folderPath As XFFolderEx = BRApi.FileSystem.GetFolder(si, FileSystemLocation.ApplicationDatabase, parentPath & "/" & newPath)

 
'Create Folder if it does not exist

		If folderPath Is Nothing Then

			BRApi.FileSystem.CreateFullFolderPathIfNecessary(si, FileSystemLocation.ApplicationDatabase, parentPath, newPath)

		End If
		
		
'Target Directory
		
		Dim targetDir As String = BRApi.FileSystem.GetFolder(si, FileSystemLocation.ApplicationDatabase, parentPath & "/" & newPath).XFFolder.FullName