XYplorer Beta Club

Code: Select all

//Modify the file content by adding some text,  then set back the original modified date time stamp.
//WARNING: be sure to modify only plain TEXT files, no binaries, no Word doc or like that!
//Test this script first on copies of your real important files!

    
  //File to work on:
    $CurrFile = "<curitem>"; 
    
  //Get the current modified date:
    $CurrModDate = report("{Modified}",1);
    
  //Read the file content:
    $CurrContent = readfile($CurrFile);
    
  //Prompt for text to add:
    $ContentToAdd = input("Text to add");
    
  //Compose new content:
    $NewContent = $ContentToAdd . "<crlf>" . $CurrContent;
    
  //Write file back with modified content:
    writefile($CurrFile, $NewContent);
    
  //Set back original mod date:
    timestamp m, $CurrModDate, $CurrFile;
    
  msg "Done",1;