Sub Process_Globals
Private cc As ContentChooser
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
cc.Initialize("cc")
End If
End Sub
Sub Activity_Click
cc.Show("*/*", "choose")
End Sub
Sub cc_Result (Success As Boolean, Dir As String, FileName As String)
If Success Then
File.Copy(Dir, FileName, File.DirInternal, "newfile")
Log("file copied")
End If
End Sub