Here's a little VBScript that I use to clear temporary files. I use it as a
scheduled job which runs when I logon, but it should easily convert to VBA
as long as you have FSO.


If you have an y problems converting it, give us a shout, and I will give it
a go.


'---------------------------------------------------------------------------
' 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

(replace somewhere in email address with gmail if mailing direct)

wrote in message
ups.com...
Hey,

As per my message below (the screen you were just at before you came
in here), is there a way to make Excel run a macro to delete any files
located inside of the Windows Temp Folder? Thanks!!!