#
# \\\ The TEST.TXT (directory tree) file must be where program runs ///
#
DIALOG CREATE,Detect empty folders,-1,0,400,354,COLOR white,savepos
DIALOG ADD,STYLE,STYLE1,,9,b,,red
DIALOG ADD,STYLE,STYLE2,,9,,,blue
DIALOG ADD,STYLE,STYLE3,,4,,,blue
DIALOG ADD,STYLE,STYLE4,,11,,,red
DIALOG ADD,text,TEXTtest1,21,10,,,Total number of List"1" Items being Processed
DIALOG ADD,edit,test1,20,227,70,18,,,READONLY
DIALOG ADD,text,TEXTtest2,51,10,,,Process List"#"1,,style3
DIALOG ADD,edit,test2,50,85,305,18,,,READONLY
DIALOG ADD,text,TEXTtest3,81,10,,,Found Items,,style3
DIALOG ADD,edit,test3,80,85,305,18,,,READONLY
DIALOG ADD,text,TEXTtest4,111,10,,,L1 Remaining,,style3
DIALOG ADD,edit,test4,110,85,70,18,,,READONLY
DIALOG ADD,text,TEXTrejected,140,10,,,Rejected,,style3
DIALOG ADD,edit,rejected,140,85,305,18,,,READONLY
DIALOG ADD,text,finished,170,150,,,status,,style4
DIALOG ADD,text,amountTEXT,182,257,,,Total Found,,style2
DIALOG ADD,edit,amount,180,320,70,18,,,READONLY
DIALOG ADD,text,TEXTemptys,195,10,,,Empty Folders Found
DIALOG ADD,edit,emptys,210,10,380,100,,,READONLY,MULTI,scroll
DIALOG ADD,BUTTON,apply,320,10,50,24,APPLY,,,hand
DIALOG ADD,BUTTON,leave,320,340,50,24,Close,,,hand
dialog show
dialog focus,apply
List create,1
List create,2
List create,9
List create,11,SORTED
:Evloop
wait event
goto @event()
:applyBUTTON
%%file = @PATH(%0)test.txt
IF @FILE(%%file)
list loadfile,1,@PATH(%0)test.txt
ELSE
TITLE Data FILE not found"!"
%%file = @PATH(%0)test.txt
WARN Make sure the TEST"."TXT "FILE" is in the PATH@CR()No action taken".."
TITLE Detect empty folders
goto evloop
END dialog set,test1,@count(1)
# test1 = Total number in List 1 Items to be Processed
# test2 = Process List # 1
# test3 = Found Items
# test4 = L1 Remaining
#
# rejected = Rejected
# finished = Finished
# amount = Total Found
# emptys = Empty Folders Found
REPEAT
LIST seek,1,0
List FILELIST,9,@Item(1)
dialog set,test2,@item(1)
If @Equal(@count(9),0)
List clear,9
List FILELIST,9,@Item(1),D
If @Equal(@count(9),0)
LIST append,2,@item(1)
Else
dialog set,rejected,@item(1)
End
Else
dialog set,rejected,@item(1)
END
LIST delete,1
LIST clear,9
wait "0.02"
dialog set,test3,@item(2)
dialog set,test4,@count(1)
UNTIL @equal(@count(1),0)
Dialog set,emptys,@text(11)
dialog set,amount,@count(2)
dialog set,finished,Finished "!"
goto evloop
:leaveBUTTON
:close
List close,1
List close,2
List close,9
List close,11
EXIT |