Sub ShowFilesInAppFolder
Dim rs1 As ResumableSub = ShowFilesInFolder(File.DirInternal, "Files in App folder", "", _
Array As String("OK", "Show Assets folder"), _
True, True, True, False)
Wait For (rs1) Complete (strResult As String)
If strResult = "Show Assets folder" Then
Dim rs2 As ResumableSub = ShowFilesInFolder(File.DirAssets, "Files in Assets folder", "", _
Array As String("OK"), _
False, False, True, False)
Wait For (rs2) Complete (strResult As String)
End If
End Sub