XYplorer Beta Club

Code: Select all

/*

Create an new file for each selected file
with the same name but add ".OK" at the end
and put the word "OK" as content.

*/

End ("<curitem>"==""),  "No file selected!"; //check if any file is selected

      //get list of selected files:
   $filelist = getinfo('SelectedItemsPathNames', '|');
   
   $count = 1;
   while(1)
   {
      //get an file from the list:
      $file=gettoken($filelist,$count,"|");
      if("$file"==""){break;}
      
      //filter out files with already .OK extension:
      $check = regexreplace($file, ".+(...)", "$1", 0);
     // IF ($check){$check=".OK";} // always upercase  --- disabled because of nonsens
      
      //if not already .OK extension, create an new file with "OK" content:
      IF ($check != ".OK")
      {
        //writefile(filename, data, [on_exist], [mode]) 
        writefile($file . ".OK", "OK", n, t); 
			}
			
      $count++;
   }