function Prepare (base, track)
  {
  var fso = new ActiveXObject ("Scripting.FileSystemObject");

  // Move and rename voice-folder.

  var oldpath = base + "\\" + track;
  var newpath = base + "\\sounds\\tracks\\" + track + ".trk";
  fso.MoveFolder (oldpath, newpath);

  // Rename wav-files, e.g. "Voice000.wav" to "_record0.wav"

  var vf = fso.GetFolder (newpath);
  for (var fc = new Enumerator (vf.files); !fc.atEnd (); fc.moveNext ())
    {
    var f = fc.item ();
    if (f.Name.substr (0, 5) != "Voice") continue; // Ignore other files.
    var i = f.Name.substr (5, 3); // index, e.g. "001"
    f.Name = "_record" + i + ".wav";
    }
  }


// Get command arguments and perform preparation.

var objArgs = WScript.Arguments;
if (objArgs.length == 1)
  {
  var fso = new ActiveXObject ("Scripting.FileSystemObject");
  var file = fso.GetFile (objArgs (0));

  var base = file.ParentFolder.Path;
  var track = file.Name;
  var i = track.lastIndexOf (".trk");
  if (i != -1) track = track.substring (0, i); // Remove ".trk" if found.

  Prepare (base, track);
  }
else
  WScript.Echo ("Usage: install <track>");