# Copy WM5 Ring Tones
# 2008-08-07
# Chieh Cheng
# http://www.CynosureX.com/

# GNU General Public License (GPL), Version 2, June 1991

  progName = "Copy WM5 Ring Tones"
  winDir = "\Windows\"
  targetDir = "\Storage Card\Rings\"

  If (not DirExists (targetDir))
    MKdir (targetDir)
  EndIf

  If (DirExists (targetDir))
    Xcopy (winDir \ "*.wav", targetDir)
    Xcopy (winDir \ "*.wma", targetDir)

    string = "Ring tones copied."
    Message (string, progName)
  Else
    string = "Unable to create " & targetDir & ". Operation aborted."
    Message (string, progName)
  EndIf