strOldestFile = ""
dtmOldestDate = Now

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("d:\files")

intFolderSize = Int((objFolder.Size / 1024) / 1024)

Do While intFolderSize > 35000

strOldestFile = ""
dtmOldestDate = Now

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("d:\files")

intFolderSize = Int((objFolder.Size / 1024) / 1024)

     If intFolderSize > 35000 Then
           Set colFiles = objFolder.Files

           For Each objFile in colFiles
                strFile = objFile.Path
                dtmFileDate = objFile.DateCreated
                If dtmFileDate < dtmOldestDate Then
                     dtmOldestDate = dtmFileDate
                     strOldestFile = strFile
                End If
           Next
           
           
           objFSO.DeleteFile(strOldestFile) 
     
     End If
Loop