Shell command copy file

[pluton]

Hi
I'm doing some app which need to copy one .txt file to my other app.

I execute command as super user and file succesfully copies into dir but the file is empty (0 bytes)

What I'm missing. Here is my code:

Dim file1, file2 As String

Other code:

Sub GoGoGo

   file1 = File.Combine(File.DirAssets, "source.txt")
   file2 = "data/data/com.myother.app/files/destination.txt"
   PokreniShell("cat" &file1 &" > " &file2)
   
End Sub

Start command:

Sub PokreniShell (comando As String)
Dim Command, Runner As String
Dim StdOut, StdErr As StringBuilder
Dim Result As Int
   Runner = File.Combine(File.DirInternalCache, "runner")
    Command = File.Combine(File.DirInternalCache, "command")
    File.WriteString(File.DirInternalCache, "runner", "su < " & Command)
    File.WriteString(File.DirInternalCache, "command", comando & CRLF & "exit") 'Any commands via crlf, and exit at end 
    StdOut.Initialize
    StdErr.Initialize
    Result = ph.Shell("sh", Array As String(Runner), StdOut, StdErr)
    Msgbox(StdOut.tostring, "")
End Sub

 

[thedesolatesoul]

I think you need a space after 'cat':

PokreniShell("cat " & file1 &" > " &file2)

What do you get in stdout or stderr?

 

[pluton]

In error I see problem is in path

file1 = File.Combine(File.DirAssets, "source.txt")

It says:
AssetsDir/source.txt: No such file or directory

But file is there

 

[thedesolatesoul]

I think DirAssets is a more virtual directory, the linux shell might not be able to access it.
Try copying to DirInternal first using File.Copy, and then copy from there.

EDIT:
Also the documentation of File.Combine says: This methods does not support files in the assets folder.

 

[pluton]

Yes that is it

Thank you
This solved my problem:

File.Copy(File.DirAssets,"source.txt",File.DirInternal,"source.txt")
   file1 = File.Combine(File.DirInternal, "source.txt")