'Copy a file to External Storage.
'Dir: The current input file directory, eg. File.DirAssets, DirInternal etc.
'Name: The current input file name
'Parent: External Storage parent name (Directory where place a file)
'Rename: Optionally rename the output file. Pass "" to mantain original name.
Public Sub CopyFileToExternalStorage (Dir As String, Name As String, Parent As ExternalFile, Rename As String) As Boolean
If File.Exists(Dir, Name) = False Then
Log("File do not exist while copy to External Storage: " & Name)
Return False
End If
Dim iStream As InputStream, oStream As OutputStream
Dim oFile As ExternalFile
If Rename <> "" Then
oFile = FindFileOrCreate(Parent, Rename) ' Optionally rename output file, pass "" to Rename to mantain original name
Else
oFile = FindFileOrCreate(Parent, Name)
End If
If oFile.IsInitialized = True Then
iStream = File.OpenInput(Dir, Name)
oStream = OpenOutputStream(oFile)
File.copy2(iStream, oStream)
iStream.Close
oStream.Close
Return True
Else
Log("Cannot create file on External Storage: " & Name)
Return False
End If
End Sub