برنامه حدف كردن فايل هاي داخل پوشه Tmp و ...

[ΛΛ Θ l-l $ Σ Ω]

چرا كسي جواب نمي ده
ببينيد اينجوري درسته
Private Sub Command1_Click()
On Error Resume Next
If Environ("windir") = "C:\WINDOWS" Then
Kill "C:\WINDOWS\temp\*.*"
Command1.Enabled = False
End If
If Environ("windir") = "D:\WINDOWS" Then
Kill "D:\WINDOWS\temp\*.*"
Command1.Enabled = False
End If
End Sub