Set objFSO=CreateObject("Scripting.FileSystemObject") Set objShell=CreateObject("WScript.shell") strRoot=objShell.ExpandEnvironmentStrings("%SystemRoot%") strUserDmp=objFSO.BuildPath(strRoot,"User.dmp") strMemDmp=objFSO.BuildPath(strRoot,"Memory.dmp") arrFiles=Array(strUserDmp,strMemDmp) For Each file In arrFiles If objFSO.FileExists(file) Then WScript.Echo "Deleting " & file objFSO.DeleteFile file Else WScript.Echo file & " not found" End If Next