SF.net SVN: frontierkernel: [1217] ODBs/trunk/frontierRoot/system/verbs/builtins/Frontier/data/DLLs/install.fvc

[<cre...@us...>]

Revision: 1217
Author:   creecode
Date:     2006-04-06 15:37:23 -0700 (Thu, 06 Apr 2006)
ViewCVS:  http://svn.sourceforge.net/frontierkernel/?rev=1217&view=rev

Log Message:
-----------
work-around problem with access denied error on Windows

Modified Paths:
--------------
    ODBs/trunk/frontierRoot/system/verbs/builtins/Frontier/data/DLLs/install.fvc
Modified: ODBs/trunk/frontierRoot/system/verbs/builtins/Frontier/data/DLLs/install.fvc
===================================================================
--- ODBs/trunk/frontierRoot/system/verbs/builtins/Frontier/data/DLLs/install.fvc	2006-04-06 02:45:49 UTC (rev 1216)
+++ ODBs/trunk/frontierRoot/system/verbs/builtins/Frontier/data/DLLs/install.fvc	2006-04-06 22:37:23 UTC (rev 1217)
@@ -1,6 +1,8 @@
 FrontierVcsFile:2:scpt:system.verbs.builtins.Frontier.data.DLLs.install
 
 «Changes
+	«4/6/06; 2:32:07 PM by TAC
+		«work-around problem with access denied error on Windows
 	«2/27/06; 11:15:57 AM by TAC
 		«created, cribbed from regex.data.installDLL
 
@@ -18,7 +20,19 @@
 			if date.versionLessThan (file.getVersion (adrPath^), regex.version) {
 				file.delete (adrPath^)}}
 		else {
-			file.delete (adrPath^)}};
+			try {
+				file.delete (adrPath^)}
+			else {
+				local (f, path = file.folderFromPath (adrPath^), pc = file.getPathChar ());
+				local (forDeletionPath = path + "for deletion" + pc);
+				
+				if not (file.exists (forDeletionPath)) {
+					file.newFolder (forDeletionPath)};
+				
+				fileloop (f in forDeletionPath) {
+					file.delete (f)};
+				
+				file.move (adrPath^, forDeletionPath)}}};
 	
 	« = adrPath^
 	


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.