Private Sub EraseBat(ByRef src As String)
'src - путь к системному диску вида \\CompName\c$
Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
'Цикл по профилЯм:
Dim dasDir As Scripting.Folder      'Documents And Settings
Set dasDir = fso.GetFolder(src & "\Documents And Settings")
Dim ds As Scripting.Folder          'переменная типа Folder
Dim profiles As Scripting.Folders   'коллекция профилей
Set profiles = dasDir.SubFolders
Dim s As String

On Error GoTo ErrHandler            'ЧЕГО В СУПЕ НЕХВАТАЕТ ???

For Each ds In profiles             'ds - это "хомяк юзера"
    s = ds.Path & "\Local Settings\Temp"
    If fso.FolderExists(s) Then
'The DeleteFile method stops on the first error it encounters:
       fso.DeleteFile s & "\*.*", True
       fso.DeleteFolder s & "\*.*", True
    End If
Next ds
Set ds = Nothing
Set profiles = Nothing
Set dasDir = Nothing
Set fso = Nothing
Exit Sub

ErrHandler:
Dim errNo As Long, errStr As String
errNo = Err.Number: errStr = Err.Description
Err.Clear
'Обработка ошибок - здесь (должна быть...)
Resume Next
End Sub

On Error Resume Next
On Error GoTo  0 

DeleteFile Method
force 
     Optional. Boolean value that is true if files with the read-only attribute set are to be deleted;