XYplorer Beta Club

Code: Select all

"Rename Special: Spaces to _"
	//Just use the build-in command: "File>Rename Special>Spaces to _"
	//Select items to rename first on your own.
	#129;

"List files to text file"
	//Select the first folder in question on your own first.
	$StartFolder = "<curpath>";
	$XFolder ="";
	$OtherFolders = "";

	while(1){
	   $IsFolder = report ("{Dir Yes|No|Drive}",1);
	   IF ("$IsFolder" == "Yes"){
	      $ActualFolder = "<curname>";
	      $curfolder = "<curitem>";
	      goto $curfolder;
	      IF ("<curname>"=="X"){
	         $XFolder = $XFolder$curfolder<crlf> . Report("{Name}<crlf>") . <crlf>;
	      }else{
	         $OtherFolders = $OtherFolders$curfolder<crlf> . Report("{Name}<crlf>") . <crlf>;
	      }
	   goto $StartFolder;
	   sel "[$ActualFolder]";
	   sel +1;
	   }else{
		   msg "No more folders. See output files.";
		   
		   //just sgow an messages box:
		   //If (strlen($XFolder) > 0) {text $XFolder;}
		   //If (strlen($OtherFolders) > 0) {text $OtherFolders;}
		   
		   //write info to file:
		   //writefile(filename, data, [on_exist], [mode])
		   If (strlen($XFolder) > 0) {writefile("C:\Temp\XFolders.txt", $XFolders);}
		   If (strlen($OtherFolders) > 0) {writefile("C:\Temp\OtherFolders.txt", $OtherFolders);}
		   break;
	   }
	}