Vbs Delete All Files In A Folder And Subfolders Iphone

by

Dim fso, startFolder, OlderThanDate Set fso = CreateObject('Scripting.FileSystemObject') startFolder = 'c: Source_Folder ' ' 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.DateLastAccessed.

Cmd delete all subfolders

Apr 30, 2017 - Here's a VBScript solution that uses a recursive function. ' Global FileSystemObject Set objFSO = CreateObject('Scripting.FileSystemObject') ' Start at the root. Uroki mili rogozyan torrent pc.