Dim extFolder As ExternalFile = Storage.FindFile(Storage.Root, folder)
Log("Folder found: " & extFolder.IsInitialized)
If extFolder.IsInitialized Then
Dim extFile As ExternalFile = Storage.FindFile(extFolder, filename)
Log("File found: " & extFile.IsInitialized)
If extFile.IsInitialized Then
Dim rp As RuntimePermissions
Dim out As OutputStream = File.OpenOutput(rp.GetSafeDirDefaultExternal(""), filename, False)
File.Copy2(Storage.OpenInputStream(extFile), out)
out.Close
End If
End If