2 replies to this topic

[pscEx]

As posted already in the MkISOFs topic:
When running from RAM and then building the project again, the target directory is not deleted.

Commands:

[ClearTarget]

If,ExistDir,"%TargetDir%",Echo,"Deleting [%targetdir%]"

If,ExistDir,"%TargetDir%",DirDelete,"%TargetDir%"

If,ExistDir,"%TargetDir%",Exit,"%TargetDir% could not be deleted!"

After the first run I have the following folder structure
[attachment=323:attachment]

In the second run, after executing [ClearTarget], I have:
[attachment=324:attachment]
The Ramboot folder is emptied, but not deleted. Everything else remains.

When before the second run I manually delete the ramboot folder, I get:
[attachment=325:attachment]
The target folder is completely emptied, but still exists!

@Nuno: I think a short view into the source code is necessary.

Peter

[Brito]

I'm not using internal delphi functions to delete dirs - I've switched to winAPI some time ago, here's the code in any case:

function DirDelete(Dir : String) : Boolean;

var

 tom : TSHFileOpStruct;

begin

 ZeroMemory(@tom,SizeOf(tom));

 with tom do

 begin

   wFunc := FO_DELETE;

   fFlags := FOF_SILENT or FOF_NOCONFIRMATION;

   pFrom := PChar(Dir + #0);

 end;

 RESULT := (0 = ShFileOperation(tom));

end;

All errors and question messages are automatically overwritten with "FOF_SILENT or FOF_NOCONFIRMATION", otherwise it uses the same method used by explorer to delete files.

If dirdelete is not deleting the folder, then I'd assume there is still one handle that protects this folder from being deleted..

I use this nifty tool to check why files and folders get locked and wich programs are locking them..

http://www.softpedia.../Unlocker.shtml


You've also mentioned that a thread from winbuilder might be preventing the folder from being deleted, and when checking from explorer it is already free to be erased. I guess the best way of knowing is tracking each command to check the behaviour - but this might take some time to know if this is the reason or not..

[pscEx]

I got a different error which I could not explain to myself:
The code

If,ExistFile,"%TargetDir%\i386\system32\drivers\#1s",ShellExecute,"hide","makecab.exe","#$q%TargetDir%\i386\system32\drivers\#1s#$q #$q%TargetDir%\i386\system32\drivers\#1_#$q"

If,ExistFile,"%TargetDir%\i386\system32\drivers\#1_",FileDelete,"%TargetDir%\i386\system32\drivers\#1s"

run well with two files.
With the third file there was the error "could not delete"

I found the reason:
My first two files have been expanded out of a cab, while the third one was copied.
AND: My Source Directory is ReadOnly.

I took away the ReadOnly, the mentioned error did not occur again.

AND: The DeleteDir issue seems to be solved, too

Peter