XYplorer Beta Club

Code: Select all

   setting "ShowFolderSizeInList";

   $testfldr = report("{Dir {size b}}");
   IF ($testfldr == "-") { echo "Folder is empty!"; }

   setting "ShowFolderSizeInList", r;

Code: Select all

setting('BackgroundFileOps', 0);

Code: Select all

IF ($testfldr == "")

Code: Select all

	$checkforfiles = listfolder( , , 1);
	if($checkforfiles != "") {
		msg "damn, this folder has files inside";
	} else {
		msg "wow, no files at all here";
	}

Code: Select all

<curpath>\Folder 1 - has empty files inside - allowed, will trigger

<curpath>\Folder 2 - has empty files and folders - allowed, will trigger

<curpath>\Folder 3 - has empty folders - allowed, will trigger

<curpath>\Folder 4 - has nothing - allowed, will trigger

<curpath>\Folder 5 - has files with size != 0 in any sublevel, not allowed, will not trigger

Code: Select all

<curpath>\Folder 1 - has empty files inside - NOT allowed, will NOT trigger

<curpath>\Folder 2 - has empty files and folders - NOT allowed, will NOT trigger

<curpath>\Folder 3 - has empty folders - NOT allowed, will NOT trigger

<curpath>\Folder 4 - has nothing - allowed, will trigger

<curpath>\Folder 5 - has files with size != 0 in any sublevel,  NOT allowed, will NOT trigger

Code: Select all

<curpath>\Folder 1 - has empty files inside - NOT allowed, will NOT trigger

<curpath>\Folder 2 - has empty files and folders - NOT allowed, will NOT trigger (because of empty files' rule)

<curpath>\Folder 3 - has empty folders - allowed, will trigger

<curpath>\Folder 4 - has nothing - allowed, will trigger

<curpath>\Folder 5 - has files with size != 0 in any sublevel, not allowed, will not trigger

Code: Select all

<curpath>\Folder 1 - has empty files inside - allowed, will trigger

<curpath>\Folder 2 - has empty files and folders - NOT allowed, will NOT trigger (because of empty folders' rule, next)

<curpath>\Folder 3 - has empty folders - NOT allowed, will NOT trigger

<curpath>\Folder 4 - has nothing - allowed, will trigger

<curpath>\Folder 5 - has files with size != 0 in any sublevel, not allowed, will not trigger

Code: Select all

text folderreport("items:{dir {fullname}|{fullname} - {size b} |}", "r", , "r");

Code: Select all

Folder 1 empty file
Folder 2 empty file and folder
Folder 3 empty folders
Folder 4 empty
Folder 5 files
Folder 6 files and folder

Code: Select all

  $Folders = get("SelectedItemsPathNames");
  foreach($fld, $Folders, "<crlf>"){
     if ($fld==""){break;}
     $FLDRS=""; $FILES="";

     //Get the size to see if any item, and if yes, how big:
     //needs listfolder() because folderreport() gives error on empty list:
      if (listfolder( $fld,,1) != ""){$FILES = folderreport("files:{size}", "r", $fld);}
      if (listfolder( $fld,,2) != ""){$FLDRS = folderreport("dirs: {size}", "r", $fld);}

     //remove line breaks from folderreport()
     //and drop the last signs, because we need only "yes" or "no", but nothing exactly:
      $FILES= substr( replace($FILES, "<crlf>", ""),0,4);
      $FLDRS= substr( replace($FLDRS, "<crlf>", ""),0,4);

     //generate the output:
      if ($FILES ==""){$fi=" NO ";}  elseif($FILES==0){$fi=" Yes, empty "}  else{$fi="Yes, non-empty";}
      if ($FLDRS ==""){$fo=" NO ";}  elseif($FLDRS==0){$fo=" Yes, empty "}  else{$fo="Yes, non-empty";}
      msg "$fld contains:<crlf>files: $fi<tab 2>$FILES<crlf>folders: $fo<tab>$FLDRS",1;
 }

Code: Select all

CurPath\Folder 1 empty file contains:
files:  Yes, empty 		0
folders:  NO 	


CurPath\Folder 2 empty file and folder contains:
files:  Yes, empty 		0
folders:  Yes, empty 	 0


CurPath\Folder 3 empty folders contains:
files:  NO
folders:  Yes, empty 	 0


CurPath\Folder 4 empty contains:
files:  NO
folders:  NO


CurPath\Folder 5 files contains:
files: Yes, non-empty		9626
folders:  NO


CurPath\Folder 6 files and folder contains:
files: Yes, non-empty		2320
folders: Yes, non-empty	 735