Sub Button1_Click
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result Then
Dim cc As ContentChooser
cc.Initialize("cc")
cc.Show("application/bat", "Choose bat ")
End If
End Sub
Sub cc_Result (Success As Boolean, Dir As String, filename As String)
If Success Then
File.Copy(Dir,filename,Dir, "new.txt")
End If
End Sub