Public Sub StartLoad As ResumableSub
Dim cc As ContentChooser
cc.Initialize("cc")
' cc.Show("text/*", "Choose text file")
Wait For CC_Result (Success As Boolean, Dir As String, FileName As String)
Dim res As LoadResult = CreateLoadResult(Success, Dir, FileName)
If res.Success Then ExtractInformationFromURI(res.FileName, res)
Return res
End Sub
Public Sub Load As ResumableSub
Dim cc As ContentChooser
cc.Initialize("cc")
cc.Show("text/*", "Choose text file")
Wait For CC_Result (Success As Boolean, Dir As String, FileName As String)
Dim res As LoadResult = CreateLoadResult(Success, Dir, FileName)
If res.Success Then ExtractInformationFromURI(res.FileName, res)
Return res
End Sub