XYplorer Beta Club

Code: Select all

/*
"Catalog Maker v 0.9 - Code by TheQwerty, Stefan and Jacky, re-sampled by SkyFrontier"
  #263; //show all items in branch
  sel f; //selects all files, no folders
  end(getinfo("CountSelected") < 1), "Please select some files first.";
  ////get name, creation date and modification date from selected files:
  $Records = report("{Name}, {Created}, {Modified}<crlf>",1);
  $Records = "{Name}, {Created}, {Modified}<crlf>" . $Records;
  ////write to an file "__timestamps" into current folder:
  writefile("<xydata>\_RES\Temp\__timestamps", $Records);
  ////cosmetics:
  status "Get timestamps is done.";

   sel f; End GetInfo("CountSelected") < 1, "No item(s) selected.";
   Global $files;
   $files = Report("{Dir |{FullName};{Ext}<crlf>|}", 1);
   Setting "AllowRecursion", 1;
   Sub "_ZERO";
   $files = RegexReplace($files, "^(.*);.*<crlf>", "$1|");
   Delete 1,1,$files;
   sel f; //selects all files, no folders.
   rename s, "-01/";

  sel f;
  ////load info from an file "__timestamps" in current folder:
  $Records = readfile("<xydata>\_RES\Temp\__timestamps");

  ////For Each Item in Itemlist $Records DO:
  $LOOP=2;
  while(1)
  {
    ////Get next record set:
    $RecSet = gettoken($Records, $LOOP, "<crlf>");
    if ($RecSet==""){break;}

    ////split the record into parts and get
    ////the file name (and add the current path):
    $file = "<curpath>\" . gettoken($RecSet, 1, ",");

    ////the creation date:
    $cDate = gettoken($RecSet, 2, ",");
      ////set the creation date to $file:
      timestamp c, "$cDate", "$file";

    ////the modification date:
    $mDate = gettoken($RecSet, 3, ",");
      ////set the modification date to $file:
      timestamp m, "$mDate", "$file";

  incr $LOOP;
  }
  ////cosmetics:
  status "Set timestamps is done.";
  while($loop<3){beep; beep 1000, 200;beep 1200, 400;incr $loop;wait 500;}

"_ZERO"
   Global $files, $i;
   $i = $i Like "" ? 1 : $i;
   $token = GetToken($files, $i, "<crlf>");
   End $token Like "",, 1;
   $file = GetToken($token, 1, ";");
   $ext = GetToken($token, 2, ";");
   $newFile = RegexReplace($file, "$ext$", "$ext");
   New $newFile;
   $i = $i + 1;
   Sub "_ZERO";
*/

Code: Select all

XYplorer - Timestamping failed. The selected item(s) might be opened and locked by another application.

Code: Select all

/*
"Catalog Maker v 1.0 - Code by TheQwerty, Stefan and Jacky; re-sampled by SkyFrontier"
  #263; //show all items in branch
  #485; //refresh file list
  sel f; //selects all files, no folders
  #485; //refresh file list
  end(getinfo("CountSelected") < 1), "Please select some files first.";
  ////get name, creation date and modification date from selected files:
  $Records = report("{Fullname}, {Created}, {Modified}<crlf>",1);
  $Records = "{Fullname}, {Created}, {Modified}<crlf>" . $Records;
  ////write to an file "__timestamps" into current folder:
  writefile("<xydata>\_RES\Temp\__timestamps", $Records);
  ////cosmetics:
  //status "Get timestamps is done.";

   sel f; End GetInfo("CountSelected") < 1, "No item(s) selected.";
   Global $files;
   $files = Report("{Dir |{FullName};{Ext}<crlf>|}", 1);
   Setting "AllowRecursion", 1;
   Sub "_ZERO";
   $files = RegexReplace($files, "^(.*);.*<crlf>", "$1|");
   Delete 1,1,$files;
   focus l;
   #485; //refresh file list
   sel f; //selects all files, no folders.
   rename s, "-01/";

  sel f;
  ////load info from an file "__timestamps" in current folder:
  $Records = readfile("<xydata>\_RES\Temp\__timestamps");

  ////For Each Item in Itemlist $Records DO:
  $LOOP=2;
  while(1)
  {
    ////Get next record set:
    $RecSet = gettoken($Records, $LOOP, "<crlf>");
    if ($RecSet==""){break;}

    ////split the record into parts and get
    ////the file name (and add the current path):
    $file = gettoken($RecSet, 1, ",");

    ////the creation date:
    $cDate = gettoken($RecSet, 2, ",");
      ////set the creation date to $file:
      timestamp c, "$cDate", "$file";

    ////the modification date:
    $mDate = gettoken($RecSet, 3, ",");
      ////set the modification date to $file:
      timestamp m, "$mDate", "$file";

  incr $LOOP;
  }
  ////cosmetics:
  status "Set timestamps is done. Catalog created!";
  //while($loop<3){beep; beep 1000, 200;beep 1200, 400;incr $loop;wait 500;}

"_ZERO"
   Global $files, $i;
   $i = $i Like "" ? 1 : $i;
   $token = GetToken($files, $i, "<crlf>");
   End $token Like "",, 1;
   $file = GetToken($token, 1, ";");
   $ext = GetToken($token, 2, ";");
   $newFile = RegexReplace($file, "$ext$", "$ext");
   New $newFile;
   $i = $i + 1;
   Sub "_ZERO";
*/

Code: Select all

Notes:

"Catalog Maker v 1.0 - Code by TheQwerty, Stefan and Jacky, re-sampled by SkyFrontier"
          #263; //show all items in branch
Bloat?  #485; //refresh file list
Bloat?  sel f; //selects all files, no folders
Bloat?  #485; //refresh file list
------
New:     $Records = report("{Fullname}, {Created}, {Modified}<crlf>",1);
            $Records = "{Fullname}, {Created}, {Modified}<crlf>" . $Records;

Previous:   $Records = report("{Name}, {Created}, {Modified}<crlf>",1);
               $Records = "{Name}, {Created}, {Modified}<crlf>" . $Records;
effect: was not allowing recursive work.
------
New:        Delete 1,1,$files;
               focus l;
               #485; //refresh file list
               sel f; //selects all files, no folders.

Previous:   Delete 1,1,$files;
               sel f; //selects all files, no folders.

effect: allows selection of ALL files in list for renaming
------
New:             $file = gettoken($RecSet, 1, ",");
Previous:        $file = "<curpath>\" . gettoken($RecSet, 1, ",");

effect: avoids conflict with required report(Fullname) info, above.

Code: Select all

writefile("<xydata>\_RES\Temp\__timestamps", $Records);

Code: Select all

/******************************************************************************
**	Ghost.xys
**
**	This script has two main functions:
**	1) Generate a listing of all items in a branch recursively.
**		This contains just the type, relative path\name, and the item dates.
**		It is in no way intended to compete with XY's Report feature.
**	2) Ghost all items in a branch to another location.
**		Ghosting means to clone the structure of a branch with zero-sized files
**		while retaining the item's Created, Modified, and Accessed dates.
**
**	After either function the script can display a summary of all items, and
**	in the latter case whether they could be ghosted or not, or prompt to save
**	the summary to a file.
**
**	Notes:
**		-When saving to an existing file the summary will be appended.
**		-The summary is tab delimited, and looks best with a monospaced font.
**			While not ideal for the displays possible via XY scripting, these
**			decisions make using this data in Excel or other apps easier.
**
**	Author: TheQwerty
**	Profile: http://www.xyplorer.com/xyfc/memberlist.php?mode=viewprofile&u=438
**	Forum Topic: http://www.xyplorer.com/xyfc/viewtopic.php?f=7&t=5408
******************************************************************************/

Code: Select all

Script Version not found!
This script can no longer trust itself and/or XYplorer's scripting engine.
Execution aborted.