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

  // Move and rename voice-folder.

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

  // Rename wav-files, e.g. "_record0.wav" to "Voice000.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, 7) != "_record") continue; // Ignore other files.
    var i = f.Name.substring (7, f.Name.indexOf (".")); // index, e.g. "1"
    i = "000".substr (0, 3 - i.length) + i; // padded index, e.g. "001"
    f.Name = "Voice" + i + ".wav";
    }
  }


// Get command arguments and perform install.

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.

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