Ammesso che io abbia capito bene, dovresti fare più o meno così:

codice:
Dim FSO, StartFolder, TheFolder, NumFileEliminati, sData
StartFolder = "D:\IPCamera"
sData = "2013-01-01" 

set FSO=CreateObject("Scripting.FileSystemObject")
Set TheFolder = FSO.GetFolder(StartFolder)
DeleteFile TheFolder

Sub DeleteFile(AFolder, sData)
   Dim AFile, TheFiles

   If AFolder.Name = sData Then

       Set TheFiles = AFolder.Files

       ' On Error Resume Next  
       For Each AFile In TheFiles
           FSO.DeleteFile AFile      
           ' NumFileEliminati = NumFileEliminati + 1
       Next

    End If

    ' ricorsione per cancellare file nelle sotto-cartelle
    Dim nextFolder
    If AFolder.SubFolders.Count > 0 Then
        For Each nextFolder In AFolder.SubFolders
            DeleteFile nextFolder, sData
        Next      
     End If

End Sub
Occhio che ho scritto al volo, per cui controlla bene e verifica prima di eseguire.