The script itself may not be perfect but it worked perfectly until compiling with the latest version.
If it is run from within MS it runs fine.
If it is run from compiled version it hangs and must be closed manually THEN if run again it works fine.
The crash happens when hitting the TRASH 'EM! button. (Which basically deletes temporary files from two main temp folders).
My system is Vista 64.
Please check before I have to reinstall older version to compile.
Here is the script:
Code: Select all
APP_TITLE=Trash 'em!
Let>MSG_STAYONTOP=1
Let>MSG_CENTERED=1
Let>MSG_WIDTH=350
Let>MSG_HEIGHT=220
Let>WF_TYPE=1
Let>VAREXPLICIT=0
// start
Let>GFL_TYPE=1
GetFileList>%TEMP_DIR%\*.*,tufolders
GetFileList>%WIN_DIR%\Temp\*.*,twfolders
Let>GFL_TYPE=0
GetFileList>%TEMP_DIR%\*.*,tufiles
GetFileList>%WIN_DIR%\Temp\*.*,twfiles
Seperate>tufolders,;,tufoldernames
Seperate>twfolders,;,twfoldernames
Seperate>tufiles,;,tufilenames
Seperate>twfiles,;,twfilenames
Dialog>dialog1
Caption=Trash 'em!
Width=370
Height=240
Top=CENTER
Left=CENTER
Max=0
Min=0
Close=0
Resize=0
Label=Trash Em! by Phil Pendlebury.,8,8,true
Button=QUIT,8,168,105,33,1,,Do nothing
Button=TRASH 'EM!,248,168,107,33,2,,Delete all temporary files and folders
Label=%TEMP_DIR%*.*,64,40,true
Label=%WIN_DIR%\Temp\*.*,64,104,true
Label=%tufilenames_count% files,64,72,true
Label=%tufoldernames_count% folders,64,56,true
Label=%twfilenames_count% files,64,136,true
Label=%twfoldernames_count% folders,64,120,true
Button=View,8,40,49,49,7,,View this folder
Button=View,8,104,49,49,8,,View this folder
Button=MEAP Web,128,168,105,33,10,,Go to MEAP web site
EndDialog>dialog1
Show dialog1
Label>Dloop
GetDialogAction>dialog1,but
IF>but=1,End
IF>but=2,Delete
IF>but=7,ViewTemp
IF>but=8,ViewWin
IF>but=10,MEAPwww
GOTO>Dloop
Label>Delete
Let>tuf=0
Let>tud=0
Let>twf=0
Let>twd=0
IF>tufilenames_count>0
Repeat>tuf
Let>tuf=tuf+1
DeleteFile>tufilenames_%tuf%
until>tuf=tufilenames_count
ENDIF
IF>tufoldernames_count>0
Repeat>tud
Let>tud=tud+1
DeleteFile>tufoldernames_%tud%
until>tud=tufoldernames_count
ENDIF
IF>twfilenames_count>0
Repeat>twf
Let>twf=twf+1
DeleteFile>twfilenames_%twf%
until>twf=twfilenames_count
ENDIF
IF>twfoldernames_count>0
Repeat>twd
Let>twd=twd+1
DeleteFile>twfoldernames_%twd%
until>twd=twfoldernames_count
ENDIF
GOTO>End
SRT>ViewTemp
ExecuteFile>%TEMP_DIR%
rda>dialog1
END>ViewTemp
SRT>ViewWin
ExecuteFile>%WIN_DIR%\Temp\
rda>dialog1
END>ViewWin
SRT>MEAPwww
ExecuteFile>http://www.meap.biz/
rda>dialog1
END>MEAPwww
Label>End
Thank you.