I made this button so I wanted to share it with you in case it is useful for you as it is for me
The needed :
I wanted to delete SECURELY some folder and files which are empty (empty folder or folders containing empty files, and empty files).
So I wrote this button in order to warm me if some files or directories are not empty (in that case I know that the files or directories are not really empty are I supposed).
The button
@nodeselect
@script jscript
function CheckIfDirectoryNotContainFiles(path) {
flag = false;
DOpus.Output("Working on path : \"" + path + "\"");
var folderEnum = DOpus.FSUtil.ReadDir(path, true);
while (!folderEnum.complete)
{
childElementPath = folderEnum.next();
type = DOpus.FSUtil.GetType(childElementPath);
DOpus.Output("Discovered Child Element path : \"" + childElementPath + "\" of type \"" + type + "\".");
if (type == "dir") {
result = CheckIfDirectoryNotContainFiles(childElementPath);
if (result == true)
{
DOpus.Output("Setting flag to true because there is a directory \"" + childElementPath + "\" inside this directory \"" + path + "\" which contain a not empty file.");
flag = true;
break;
}
}
else
{
result = CheckIfFileIsEmpty(childElementPath);
if (result == true)
{
DOpus.Output("Setting flag to true because there is a file \"" + childElementPath + "\" inside this directory \"" + path + "\" which is not empty file.");
flag = true;
break
}
}
}
return flag;
}
function CheckIfFileIsEmpty(path) {
flag = false;
fso = new ActiveXObject("Scripting.FileSystemObject");
file = fso.GetFile(path);
fileSize = file.size;
DOpus.Output("Discover file : \"" + path + "\" with size \"" + fileSize + "\".");
if (file.size > 0)
{
DOpus.Output("Setting flag to true cause the file is not empty.");
flag = true;
}
else
{
DOpus.Output("Setting flag to false cause the file is empty.");
}
return flag;
}
function OnClick(ClickData) {
var cmd = ClickData.func.command;
cmd.deselect = false;
var tab = ClickData.func.sourcetab;
var count = tab.selstats.selfiles;
var notEmptyFiles = [];
var notEmptyDirs = [];
//DOpus.Output (count);
var enumFiles = new Enumerator(tab.selected);
for (enumFiles; !enumFiles.atEnd(); enumFiles.moveNext())
{
path = enumFiles.item()
type = DOpus.FSUtil.GetType(path);
DOpus.Output("Type : " + type);
if (type == "dir") {
flag = CheckIfDirectoryNotContainFiles(path);
if (flag)
{
notEmptyDirs.push(DOpus.FSUtil.NewPath(path).filepart);
}
}
else
{
flag = CheckIfFileIsEmpty(path);
if (flag)
{
notEmptyFiles.push(DOpus.FSUtil.NewPath(path).filepart);
}
}
}
if (notEmptyDirs.length > 0 || notEmptyFiles.length > 0)
{
DOpus.Output("No Empty");
var msg = ""
msg += "At least"
if (notEmptyDirs.length > 0) {
msg += " one directory"
}
if (notEmptyFiles.length > 0) {
if (notEmptyDirs.length > 0) {
msg += " and"
}
msg += " one file"
}
msg += " not empty !"
msg += "\n"
msg += "\n"
if (notEmptyDirs.length > 0) {
msg += "Directories : " + '\n'
}
for (var i = 0; i < notEmptyDirs.length; i++)
{
msg += "- " + notEmptyDirs[i] + '\n'
}
if (notEmptyFiles.length > 0) {
msg += "Files : " + '\n'
}
for (var i = 0; i < notEmptyFiles.length; i++)
{
msg += "- " + notEmptyFiles[i] + '\n'
}
DOpus.Dlg.Request(msg, "Cancel", "Cancel", dlg);
}
else
{
DOpus.Output("Empty");
var dlg = DOpus.Dlg
var msg = ""
msg += "All directories/files are empty !"
msg += "\n"
msg += "Confirm deletion ?"
var result = DOpus.Dlg.Request(msg, "Confirm|Cancel", "Confirm", dlg);
DOpus.Output (result);
if (result == 1)
{
cmd.RunCommand("Delete QUIET");
}
}
}
It might be best to comment out all the DOpus.Output(...) debugging since most people won't want that in their script logs.
The Delete command's SKIPNOTEMPTY and FAILNOTEMPTY arguments might also be of interest. (Note that they need to be combined with NORECYCLE, and are slightly different to what the script does, but similar in some ways.)
I didn't know these arguments, very good idea
Also, this code allow us to know which files/directories are not "empty", so it's a little thing in more.
Very happy you like it Hope it will be useful for other people
This is a very Helpful script.
But if the button can delete the empty folder which contain empty file from the selected folders that would be more helpful.
Thanks for the script
I would expect we could select all the items in the list, click the button, and all empty files and folders would be deleted leaving the other non empty items untouched. But the script only prevents user from deleting anything as long the selection contains non empty items. I don’t see the point.
Made some changes to make this button more useful to me, it might be what you wanted. ReadDir flags is set to "a", so that archives will be considered as files rather than directories.
xml:
<?xml version="1.0"?>
<button backcol="none" display="both" label_pos="right" separate="yes" textcol="none">
<label>Delete Empty Items</label>
<tip>Delete all empty items in selection or the current folder.</tip>
<icon1>#delete</icon1>
<function type="script">
<instruction>@nodeselect</instruction>
<instruction>@script jscript</instruction>
<instruction />
<instruction>function CheckIfDirectoryIsEmpty (path) {</instruction>
<instruction> flag = true;</instruction>
<instruction> //DOpus.Output("Working on path : \"" + path + "\"");</instruction>
<instruction> var folderEnum = DOpus.FSUtil.ReadDir(path, "r");</instruction>
<instruction> while (!folderEnum.complete) {</instruction>
<instruction> childElementPath = folderEnum.next();</instruction>
<instruction> type = DOpus.FSUtil.GetType(childElementPath, "a");</instruction>
<instruction> //DOpus.Output("Discovered child element path : \"" + childElementPath + "\" of type \"" + type + "\".");</instruction>
<instruction> if (type == "dir") {</instruction>
<instruction> result = CheckIfDirectoryIsEmpty(childElementPath);</instruction>
<instruction> if (result == false) {</instruction>
<instruction> //DOpus.Output("Setting flag to false because there is a directory \"" + childElementPath + "\" inside this directory \"" + path + "\" which contain a not empty file.");</instruction>
<instruction> flag = false;</instruction>
<instruction> break;</instruction>
<instruction> }</instruction>
<instruction> } else {</instruction>
<instruction> result = CheckIfFileIsEmpty(childElementPath);</instruction>
<instruction> if (result == false) {</instruction>
<instruction> //DOpus.Output("Setting flag to false because there is a file \"" + childElementPath + "\" inside this directory \"" + path + "\" which is not empty file.");</instruction>
<instruction> flag = false;</instruction>
<instruction> break</instruction>
<instruction> }</instruction>
<instruction> }</instruction>
<instruction> }</instruction>
<instruction> return flag;</instruction>
<instruction>}</instruction>
<instruction />
<instruction>function CheckIfFileIsEmpty (path) {</instruction>
<instruction> flag = true;</instruction>
<instruction> fso = new ActiveXObject("Scripting.FileSystemObject");</instruction>
<instruction> file = fso.GetFile(path);</instruction>
<instruction> fileSize = file.size;</instruction>
<instruction> //DOpus.Output("Discover file : \"" + path + "\" with size \"" + fileSize + "\".");</instruction>
<instruction> if (file.size > 0) {</instruction>
<instruction> //DOpus.Output("Setting flag to false cause the file is not empty.");</instruction>
<instruction> flag = false;</instruction>
<instruction> } else {</instruction>
<instruction> //DOpus.Output("Setting flag to true cause the file is empty.");</instruction>
<instruction> }</instruction>
<instruction> return flag;</instruction>
<instruction>}</instruction>
<instruction />
<instruction>function OnClick (ClickData) {</instruction>
<instruction> var cmd = ClickData.func.command;</instruction>
<instruction> cmd.deselect = true;</instruction>
<instruction> var tab = ClickData.func.sourcetab;</instruction>
<instruction> var selected = tab.selected;</instruction>
<instruction> var count = tab.selstats.selfiles;</instruction>
<instruction> var emptyFiles = [];</instruction>
<instruction> var emptyDirs = [];</instruction>
<instruction> //DOpus.Output (count);</instruction>
<instruction> if (selected.count == 0) { //if no item is selected</instruction>
<instruction> selected = ClickData.func.sourcetab.all; //handle all item in the current directory</instruction>
<instruction> }</instruction>
<instruction> var enumFiles = new Enumerator(selected);</instruction>
<instruction> for (enumFiles; !enumFiles.atEnd(); enumFiles.moveNext()) {</instruction>
<instruction> path = enumFiles.item()</instruction>
<instruction> type = DOpus.FSUtil.GetType(path, "a");</instruction>
<instruction> //DOpus.Output("Type : " + type);</instruction>
<instruction> if (type == "dir") {</instruction>
<instruction> flag = CheckIfDirectoryIsEmpty(path);</instruction>
<instruction> if (flag == true) {</instruction>
<instruction> emptyDirs.push(DOpus.FSUtil.NewPath(path).filepart);</instruction>
<instruction> cmd.AddFile(path);</instruction>
<instruction> }</instruction>
<instruction> } else {</instruction>
<instruction> flag = CheckIfFileIsEmpty(path);</instruction>
<instruction> if (flag == true) {</instruction>
<instruction> emptyFiles.push(DOpus.FSUtil.NewPath(path).filepart);</instruction>
<instruction> cmd.AddFile(path);</instruction>
<instruction> }</instruction>
<instruction> }</instruction>
<instruction> }</instruction>
<instruction> if (emptyDirs.length > 0 || emptyFiles.length > 0) {</instruction>
<instruction> //DOpus.Output("Found empty item");</instruction>
<instruction> var msg = ""</instruction>
<instruction> msg += "Found "</instruction>
<instruction> if (emptyDirs.length > 0) {</instruction>
<instruction> msg += emptyDirs.length + " empty folder"</instruction>
<instruction> if (emptyDirs.length > 1) {</instruction>
<instruction> msg += "s"</instruction>
<instruction> }</instruction>
<instruction> }</instruction>
<instruction> if (emptyFiles.length > 0) {</instruction>
<instruction> if (emptyDirs.length > 0) {</instruction>
<instruction> msg += " and "</instruction>
<instruction> }</instruction>
<instruction> msg += emptyFiles.length + " empty file"</instruction>
<instruction> if (emptyFiles.length > 1) {</instruction>
<instruction> msg += "s"</instruction>
<instruction> }</instruction>
<instruction> msg += "!"</instruction>
<instruction> }</instruction>
<instruction> msg += "\n"</instruction>
<instruction> msg += "\n"</instruction>
<instruction> if (emptyDirs.length > 0) {</instruction>
<instruction> msg += "Empty folder"</instruction>
<instruction> if (emptyDirs.length > 1) {</instruction>
<instruction> msg += "s"</instruction>
<instruction> }</instruction>
<instruction> msg += ":" + "\n"</instruction>
<instruction> }</instruction>
<instruction> for (var i = 0; i < emptyDirs.length; i++) {</instruction>
<instruction> msg += "- " + emptyDirs[i] + "\n"</instruction>
<instruction> }</instruction>
<instruction> if (emptyFiles.length > 0) {</instruction>
<instruction> if (emptyDirs.length > 0) {</instruction>
<instruction> msg += "\n"</instruction>
<instruction> }</instruction>
<instruction> msg += "Empty file"</instruction>
<instruction> if (emptyFiles.length > 1) {</instruction>
<instruction> msg += "s"</instruction>
<instruction> }</instruction>
<instruction> msg += ":" + "\n"</instruction>
<instruction> }</instruction>
<instruction> for (var i = 0; i < emptyFiles.length; i++) {</instruction>
<instruction> msg += "- " + emptyFiles[i] + "\n"</instruction>
<instruction> }</instruction>
<instruction> msg += "\n"</instruction>
<instruction> msg += "Confirm deletion?"</instruction>
<instruction> var dlg = DOpus.Dlg</instruction>
<instruction> var result = DOpus.Dlg.Request(msg, "Confirm|Select Only|Cancel", "Confirm", dlg);</instruction>
<instruction> if (result == 1) {</instruction>
<instruction> //DOpus.Output ("Deleted");</instruction>
<instruction> //DOpus.Output ("");</instruction>
<instruction> cmd.RunCommand("Select FROMSCRIPT DESELECTNOMATCH");</instruction>
<instruction> cmd.RunCommand("Delete QUIET");</instruction>
<instruction> } else if (result == 2) {</instruction>
<instruction> //DOpus.Output ("Selected");</instruction>
<instruction> //DOpus.Output ("");</instruction>
<instruction> cmd.RunCommand("Select FROMSCRIPT DESELECTNOMATCH");</instruction>
<instruction> } else {</instruction>
<instruction> //DOpus.Output ("Canceled");</instruction>
<instruction> //DOpus.Output ("");</instruction>
<instruction> }</instruction>
<instruction> } else {</instruction>
<instruction> //DOpus.Output("No empty item");</instruction>
<instruction> //DOpus.Output ("");</instruction>
<instruction> var msg = ""</instruction>
<instruction> msg += "No empty item was found"</instruction>
<instruction> if (tab.selected.count != 0) { //if no item is selected</instruction>
<instruction> msg += " in seleted items"</instruction>
<instruction> }</instruction>
<instruction> msg += "!"</instruction>
<instruction> var dlg = DOpus.Dlg</instruction>
<instruction> var result = DOpus.Dlg.Request(msg, "Confirm", "Confirm", dlg);</instruction>
<instruction> }</instruction>
<instruction>}</instruction>
</function>
</button>
ReadDir flags is set to "a", so that archives will be considered as files rather than directories.