Run( "\Windows\explorer.exe" )

CreateShortcut("\Windows\Desktop\Total Commander.lnk","\Storage Card\Testmode\Utils\cecmd.exe")
#CreateShortcut("\Windows\Desktop\Tascal RegEdit.lnk","\Storage Card\Testmode\Utils\TRE.exe")
#CreateShortcut("\Windows\Desktop\WR-Tools ResInfo.lnk","\Storage Card\Testmode\Utils\ResInfo.exe")
#CreateShortcut("\Windows\Desktop\DiskRW.lnk","\Storage Card\Testmode\Utils\DiskRW.exe")
CreateShortcut("\Windows\Desktop\Restart.lnk","\Storage Card\Testmode\Utils\Restart.exe")

CreateShortcut("\Windows\Programs\Total Commander.lnk","\Storage Card\Testmode\Utils\cecmd.exe")
CreateShortcut("\Windows\Programs\Tascal RegEdit.lnk","\Storage Card\Testmode\Utils\TRE.exe")
CreateShortcut("\Windows\Programs\WR-Tools ResInfo.lnk","\Storage Card\Testmode\Utils\ResInfo.exe")
CreateShortcut("\Windows\Programs\DiskRW.lnk","\Storage Card\Testmode\Utils\DiskRW.exe")
CreateShortcut("\Windows\Programs\Restart.lnk","\Storage Card\Testmode\Utils\Restart.exe")

CreateShortcut("\Windows\Favorites\Total Commander.lnk","\Storage Card\Testmode\Utils\cecmd.exe")
CreateShortcut("\Windows\Favorites\Restart.lnk","\Storage Card\Testmode\Utils\Restart.exe")

MCAP = "\Storage Card\MiTACAP"
LIST = "\Storage Card\Stage\ProcList.txt"
BKPF = "\Storage Card\BackupFlash"
FDSK = "\My Flash Disk"

SetChoiceEntryFormat(  30, 18, "Tahoma" )
StatusListEntryFormat( 30, 18, "Tahoma" )

ChoiceDefault("AVIC", 				\
	"What do you want to do?", 4, 30, 	\
	"Copy MiTACAP folder to Flash Disk", 	\
	"Process '" & LIST & "'",		\
	"Backup Flash Disk to '" & BKPF & "'", 	\
	"Drop to Windows" 			)

Case( 1 )
  StatusMessage( "Starting 1", ST_LIST, TRUE)
  If( DirExists( MCAP ) )
    StatusMessage( "Starting xcopy - please wait")
    XCopy( MCAP \ "*.*", FDSK, TRUE, TRUE )
    StatusMessage( "Finished - Dropping to Windows" )
  Else
    StatusMessage( "MiTACAP not found - Dropping to Windows" )
  EndIf
  StatusMessage( "-- Press OK --" )

Case( 2 )
  StatusMessage( "Starting 2", ST_LIST, TRUE)
  If( NOT FileExists( LIST ) )
    StatusMessage( "ERROR! '" & LIST & "' not found")
    StatusMessage( "No action taken - Dropping to Windows" )
  Else
    ThisLine = ReadLine( LIST )
    While( NOT IsEmpty( ThisLine ) )
      Word = Split( ThisLine, "|", TRUE)
      StatusMessage( Word[1] )
      Switch( Word[1] )
      Case( "copy" )
        StatusMessage( "Copy(" & Word[2] & ", " & Word[3] & " )" )
        # Copy( Word[2], Word[3], TRUE )
      Case( "rename" )
        StatusMessage( "Rename(" & Word[2] & ", " & Word[3] & " )" )
        # Rename( Word[2], Word[3], TRUE )
      EndSwitch
      ThisLine = ReadLine( LIST )
    EndWhile
    StatusMessage( "Finished - Dropping to Windows" )
  EndIf
  StatusMessage( "-- Press OK --" )

Case( 3 )
  StatusMessage( "Starting 3", ST_LIST, TRUE)
  If( NOT DirExists( BKPF ) )
    StatusMessage( "Creating folder '" & BKPF & "'")
    MkDir( BKPF )
  EndIf
  If( NOT DirExists( BKPF ) )
    StatusMessage( "ERROR! Unable to create folder '" & BKPF & "'")
    StatusMessage( "Backup was not performed - Dropping to Windows" )
  Else
    StatusMessage( "Starting backup - please wait")
    XCopy( FDSK \ "*.*", BKPF, TRUE, TRUE )
    StatusMessage( "Finished - Dropping to Windows" )
  EndIf
  StatusMessage( "-- Press OK --" )

Case( 0, 4 )
  SleepMessage( 2, "Dropping to Windows", "done...", TRUE) )

EndChoice