MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
Dim fso, startFolder, OlderThanDate Set fso = CreateObject("Scripting.FileSystemObject") startFolder = "\\sadvnfs01\Scan-DVN\" ' folder to start deleting (subfolders will also be cleaned) OlderThanDate = DateAdd("d", -7, Date) ' 7 days (adjust as necessary) DeleteOldFiles startFolder, OlderThanDate Function DeleteOldFiles(folderName, BeforeDate) Dim folder, file, fileCollection, folderCollection, subFolder Set folder = fso.GetFolder(folderName) Set fileCollection = folder.Files For Each file In fileCollection If file.DateLastModified < BeforeDate Then fso.DeleteFile(file.Path) End If Next Set folderCollection = folder.SubFolders For Each subFolder In folderCollection DeleteOldFiles subFolder.Path, BeforeDate Next End Function
|How to hault or freeze parent form when a 2d form is open in vb6||3||40|
|Copy the value of Cell C5 into sheet2 Cell B5 if A1 on sheet 1 = (MCL). If cell C5 is empty (or 'No') do nothing. Is this possible?||7||35|
|save excel in the same active file's folder.||8||22|
|Add Attendee Macro need not halt for Acknowledgement||12||22|