// This macro opens the prev ".txt" file in the current folder.
//
sFolder = document.Path;
if( sFolder != "" ) {
  fso = new ActiveXObject("Scripting.FileSystemObject");
  f = fso.GetFolder(sFolder);
  fc = new Enumerator(f.files);
  sItem = "";
  for (; !fc.atEnd(); fc.moveNext()) {
    if( fc.item().name == document.Name ) {
      try {
        editor.OpenFile( sPath );
      }
      catch(e) {
      }
      break;
    }
    else {
      n = fc.item().name.lastIndexOf(".");
      if( n != -1 && fc.item().name.slice( n ) == ".txt" )
        sPath = sFolder + "\\" + fc.item().name;
    }	   
  }
}