I am using your script and I want to delete the files in some folders. I find your script is great. I have make a little change in your script such that I can del the "recent" and "favorites" files in user profiles, like this

change %temp% ==> %userprofile%
and I use a variable, say, $fav and $rec
$fav = %userprofile% + "\favorites"
$rec = %userprofile% + "\recent"

But it is not the main point, I want to says is the first time the script run excellent. When I run the second time, so no file or directory in it, the script continue to loop and did not stop.

Thanks for your concern!

Gilbert Ng

------------------------------------------
break on cls

$tempdir = "temp1.dat"
$tempfile = "temp2.dat"
dim $tempdir_data[99999]

:wrong
? "This will Delete all files and Directories in"
? "%temp%!!! are you sure?(y/n)"
get $yn
select
case lcase($yn) = "y"
;run rest of code
case lcase($yn) = "n"
exit
case 1
goto wrong
endselect

shell "%comspec% /c dir %temp% /ad /b /s > $tempdir"
shell "%comspec% /c dir %temp% /a-d /b /s > $tempfile"

? "Deleting the files in %temp%" gosub kill_files
? "Removing all Directories in %temp%" gosub Kill_directories

del $tempdir
del $tempfile
exit

;----------------------------
:Kill_Files
;----------------------------

$q = open(1,$tempfile)
$tempfile_data = readline(1)
while @error = 0
del $tempfile_data
$tempfile_data = readline(1)
loop
$q = close(1)
return

;----------------------------
:Kill_directories
;----------------------------
$array_count = 0
$q = open (1,$tempdir)
$tempdir_data[$array_count] = readline(1)

while $tempdir_data[$array_count] <> ""
$array_count = $array_count + 1
$tempdir_data[$array_count] = readline(1)
loop
$q = close(1)

rd $tempdir_data[$array_count]
while $array_count >= 0
rd $tempdir_data[$array_count]
$array_count = $array_count - 1
loop
return
-------------------------------------------

Can I interrupt here?

The original...

code:

---

rd $tempdir_data[$array_count]
while $array_count >= 0
rd $tempdir_data[$array_count]
$array_count = $array_count - 1
loop
return

---

Can you change it to?

code:

---

while $array_count >= 0
rd $tempdir_data[$array_count]
$array_count = $array_count - 1
loop
return

---

In other words, you want to test if the $array_count >= 0 and if it meets that condition, then remove the directory.

Back to your lesser point:

quote:

---

$fav = %userprofile% + "\favorites"
$rec = %userprofile% + "\recent"

---

Why don't you use?

$fav = READVALUE("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","favorites")
$rec = READVALUE("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","recent")

This way, you don't have be dependent on Environment variables and these keys are consistent whether it is 9x/NT/2k.

HTH,

- Kent

Why not using the deltree command?

Reading the information from a file is much slower. You think the amount of files can be
very big (see array size of 99.999 elements).
Files with special attributes (line: ReadOnly) will not removed by del or rd commands.
First you need to change those file attributes.
For W9x systems you had also to deal with the known problem of flushing
write-buffers to your disk.

deltree doesn't have problems with special file attributes, flushing buffer
problem within w9x environments and can bypass possible open files.

Our version:

code:

---

 CLS
 BREAK ON 
:wrong
 ? "This will Delete all files and Directories in"
 ? "%temp%!!! are you sure?(y/n)"
 GET $yn
 SELECT
 CASE (LCase($yn) = "y")
       ;run rest of code
 CASE (LCase($yn) = "n")
       EXIT
 CASE 1
       GOTO wrong
 ENDSELECT
 SHELL '%comspec% /c deltree /y %temp%\.'
 IF (Exist(%temp%) = 0)
       MD %temp%
 ENDIF

---

See our script cleanup.kix for other ideas about cleaning an user environ-
ment.
greetings.

btw: deltree program and cleanup.kix script you can find on
our site http://home.wanadoo.nl/scripting

That bit of code that i made was really nothing more than a proof of concept.

I will try it.

Gilbert Ng

Here's the script I use:

code:

---

$userTempDirectories  = "userTempDirectories.txt"
$userTempFiles        = "userTempFiles.txt"
Dim $tempdir_data[99999]
Shell "%comspec% /c attrib -h -r %temp%\*.* /s /d"
Shell "%comspec% /c dir %temp% /ad /b /s > $userTempDirectories"
Shell "%comspec% /c dir %temp% /a-d /b /s > $userTempFiles"
Gosub deleteUserTempFiles
Gosub deleteUserTempDirectories
:deleteUserTempFiles
 	$q = Open(1,$userTempFiles)
	$tempfile_data = ReadLine(1)
	While @ERROR = 0
		Del $tempfile_data
		$tempfile_data = ReadLine(1)
	Loop
	$q = Close(1)
	Del $userTempFiles
	Return
:deleteUserTempDirectories
	$array_count = 0 
	$q = Open (1,$userTempDirectories)
	$tempdir_data[$array_count] = ReadLine(1)
	While $tempdir_data[$array_count] <> ""
		$array_count = $array_count + 1
		$tempdir_data[$array_count] = ReadLine(1)
	Loop
	$q = Close(1)
	Rd $tempdir_data[$array_count]
	While $array_count >= 0
		Rd $tempdir_data[$array_count]
		$array_count = $array_count - 1
	Loop
	Del $userTempDirectories
	If Exist ("%temp%") = 0
		Md "%temp%"
	EndIf
	Return
Exit

---

I"n some cases the temp-dis were also removed, so I added a check to see if the dir exist, and if not, make that dir again.

Martijn

shell '%ComSpec% /C RD [/S] [/Q] [drive:]path' ???

works on NT and 2k !

J.

_________________________