filip Valued Contributor
Joined: 07 Aug 2004 Posts: 340
|
Posted: Thu Jul 06, 2017 6:38 pm Post subject: Error 4 on cancel folder dialog |
|
|
I use Vdsinout.dll for this and the code works but if i cancel on folder dialog it goes to error 4, don't know how to fix this?
Code: | :SingleErase0MODE
dialog set,texts0,File: @NAME(%a)"."@ext(%a)@CR()From: @PATH(%a)
DIALOG set,TEXTS1,Stage 1 - Random data fill
dialog set,prog,20
%1 = @io(ERASE,%a,FF00FF)
rem %2 = @io(ERASE,%F,00FF00)
dialog set,prog,40
rem %3 = @io(ERASE,%F,FF)
dialog set,prog,60
DIALOG set,TEXTS2,Stage 2 - Zero file creation
%4 = @io(create,%a)
dialog set,prog,80
DIALOG set,TEXTS3,Stage 3 - Erasing file
dialog set,prog,100
wait 0.6
dialog close
file delete,@item(3)
directory delete,@item(3)
if @next(3)
end
until @not(@item(3))
end
list close,3
end
dialog set,sb,Files elimination complete.
wait 0.6
dialog set,sb,
goto loop |
|
|