How to count and delete temp file from system folder using coding?

[Macadrian]

Hi,
I am internet user and because of this I get lots TEMP files in my Temp folder, and every day I don’t want to delete open temp file and remove or delete this file, for that I try to make own application which directly delete all the files from the temp folder. But I don’t have any idea how to count and delete temp file from system folder using coding

[Modifier]

Use following code for counting and deleting the files from any folder
for /f "tokens=1 delims=F" %%a in ('dir /s /a-d ^| find " File(s) "')
do (set /a p+=%%a echo %%a)
echo %p%
"del /s"
subtract (dif=newct-oldct).
After counting all the files from the temp folder in your system drive you get the log.txt file, in that you get all the counting of all deleted files.

[MindSpace]

Use following VB code for deleting files from the folder
Private Sub fdel(fname As String)
Dim fileobj As Object
Set fileobj = CreateObject("Scripting.fileobj")
fileobj.delfile fname, True
End Sub
Private Sub Command1_Click()
fdel (fname)
End Sub

[opaper]

This VB code is use full for an API call. This code is very easy and faster to compiling.
Private Declare Function Delfile Lib "kernel32" Alias "DelfileA" (ByVal fname As String) As Long
Private Sub Command1_Click()
Dim File As String
File = "TEMP folder path"
Delfile File
End Sub

[Reegan]

Use SHFileOperation to send a file to the recycle bin.
VB Code:
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" ( fileopen As SHFILEOPSTRUCT ) As Long
Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
Private Type SHFILEOPSTRUCT
thwnd As Long
wFunca As Long
pFrom As String
pToa As String
fFlagsa As Integer
fAborteda As Boolean
hNameMapsa As Long
sProgressa As String

End Type
Public Sub DeleteFile(ByVal sfilnam As String)
Dim fo As SHFILEOPSTRUCT
With fo
.pFrom = sfilnam & vbNullChar
.wFunca = FO_DELETE
.fFlags = FOF_ALLOUNDO
End With
Call SHFileOperation(fo)
End Sub