'   Copyright (C) 2000  Andy Sherwood   (enigmax@home.com)
'
'   This program is free software; you can redistribute it and/or modify
'   it under the terms of the GNU General Public License as published by
'   the Free Software Foundation; either version 2 of the License, or
'   (at your option) any later version.
'
'   This program is distributed in the hope that it will be useful,
'   but WITHOUT ANY WARRANTY; without even the implied warranty of
'   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'   GNU General Public License for more details.
'
'   You should have received a copy of the GNU General Public License
'   along with this program; if not, write to the Free Software
'   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

'
'   Sample VBScript
'

Dim Rio500
Set Rio500 = CreateObject("Rio500Remix.Rio500")

Rio500.Open

WScript.Echo "Formatting..."
Rio500.Format

WScript.Echo "Adding folders..."
Rio500.AddFolder "Folder 1"
Rio500.AddFolder "Folder 2"
Rio500.AddFolder "Folder 3"

WScript.Echo "Uploading songs..."
WScript.Echo "1..."
Rio500.AddSong 0, "Test Song 1",  "C:\Temp\TestSongs\Test Song 1.mp3"
WScript.Echo "2..."
Rio500.AddSong 0, "Test Song 2",  "C:\Temp\TestSongs\Test Song 2.mp3"
'WScript.Echo "3..."
'Rio500.AddSong 0, "Test Song 3",  "C:\Temp\TestSongs\Test Song 3.mp3"
'WScript.Echo "4..."
'Rio500.AddSong 0, "Test Song 4",  "C:\Temp\TestSongs\Test Song 4.mp3"
'WScript.Echo "5..."
'Rio500.AddSong 0, "Test Song 5",  "C:\Temp\TestSongs\Test Song 5.mp3"
'WScript.Echo "6..."
'Rio500.AddSong 1, "Test Song 6",  "C:\Temp\TestSongs\Test Song 6.mp3"
'WScript.Echo "7..."
'Rio500.AddSong 1, "Test Song 7",  "C:\Temp\TestSongs\Test Song 7.mp3"
'WScript.Echo "8..."
'Rio500.AddSong 1, "Test Song 8",  "C:\Temp\TestSongs\Test Song 8.mp3"
'WScript.Echo "9..."
'Rio500.AddSong 1, "Test Song 9",  "C:\Temp\TestSongs\Test Song 9.mp3"
'WScript.Echo "10.."
'Rio500.AddSong 2, "Test Song 10", "C:\Temp\TestSongs\Test Song 10.mp3"
'WScript.Echo "11..."
'Rio500.AddSong 2, "Test Song 11", "C:\Temp\TestSongs\Test Song 11.mp3"
'WScript.Echo "12..."
'Rio500.AddSong 2, "Test Song 12", "C:\Temp\TestSongs\Test Song 12.mp3"
'WScript.Echo "13..."
'Rio500.AddSong 2, "Test Song 13", "C:\Temp\TestSongs\Test Song 13.mp3"
'WScript.Echo "14..."
'Rio500.AddSong 2, "Test Song 14", "C:\Temp\TestSongs\Test Song 14.mp3"
'WScript.Echo "Done."

'PrintRioContents

'WScript.Echo "Deleting stuff..."
'Rio500.DeleteFolder 1
'Rio500.DeleteSong 0, 1

'PrintRioContents

Rio500.Close

Public Sub PrintRioContents
    Dim Folder
    Dim Folders
    Dim Song
    Dim Songs
    Dim Avail

    Avail = Rio500.AvailableMemory
    WScript.Echo "Bytes free: " + CStr(Avail)

    Set Folders = Rio500.Folders

    For Each Folder In Folders
        WScript.Echo Folder.Name

        Set Songs = Rio500.Songs(Folder.Number)

        For Each Song In Songs
            WScript.Echo vbTab + Song.Name
        Next    
    Next    
End Sub