They should, but temp files get left. I use a VBScript to delete them when I
log in by putting the following code in a .vbs text file, and schedule that
file to run on startup
'---------------------------------------------------------------------------
----
' File: tempDirTidy
' Function: deletes inactive files from the Windows Temp directory
' i.e. files not automatically deleted by the creating process
'---------------------------------------------------------------------------
----
Const TemporaryFolder = 2 'for GetSpecialFolder
Set FSO = CreateObject("Scripting.FileSystemObject")
'init an empty array (UBound will be -1)...
'
'we use an array and store the file objects as this avoids any problems
' with altering the contents of the Files collections while they
' are being iterated.
arFiles = Array()
count = -1
'get the path to the temp folder
'
tempdir = FSO.GetSpecialFolder(TemporaryFolder)
'load the (global scope) array arFiles
'SelectFiles calls itself recursively for SubFolders
SelectFiles tempdir
'the error trap is in case any are in-use...
dCount = 0
For Each file In Arfiles
On Error Resume Next
file.Delete True
If Err.Number = 0 Then
dCount = dCount + 1
End If
Err.Clear
On Error Goto 0
Next
'now go back and delete empty folders below the temp folder
DeleteEmptyFolders tempdir,False
'comment out for "silent" operation,
' or add support for a "/s" command-line switch.
Msgbox count+1 & " files were found in " & tempdir & vbcrlf & dCount & " of
those files were deleted.", vbInformation,"Windows Temp Directory Tidy-up"
'---------------------------------------------------------------------------
----
Sub SelectFiles(sPath)
'---------------------------------------------------------------------------
----
'select files to delete and add to array...
Set Folder = FSO.Getfolder(sPath)
Set Files = Folder.Files
For Each file In Files
Count = Count + 1
Redim Preserve arFiles(Count)
Set arFiles(Count) = file
Next
For Each fldr In Folder.Subfolders
Selectfiles Fldr.Path
Next
End Sub
'---------------------------------------------------------------------------
----
Sub DeleteEmptyFolders(sPath,fDeleteThisFolder)
'---------------------------------------------------------------------------
----
Set Folder = FSO.GetFolder(sPath)
'recurse first...
For Each fldr In Folder.Subfolders
DeleteEmptyFolders fldr.Path,True
Next
'if no files or folders then delete...
'fDeleteThisFolder is False for the root of the subtree,
' and true for sub-folders (unless you want to delete
' the entire subtree if it is empty).
If (Folder.Files.Count = 0) And _
(Folder.Subfolders.Count) = 0 And _
fDeleteThisFolder Then
Folder.Delete
Exit Sub
End If
End Sub
'---------------------------------
end-script ---------------------------------
--
HTH
Bob Phillips
(remove nothere from email address if mailing direct)
