Examples: Visual Basic and files/folders

[eneles]

First a simple script to delete a folder - then re-create it, empty.

For this we need to use the "FileSystemObject".

(comments that won't be executed in green)

Syntax: [ Download ] [ Hide ]

Syntax: [ Download ] [ Show ]

Using vb Syntax Highlighting

Set fso = CreateObject("Scripting.FileSystemObject") 'assign the FileSystemObject to fso
Folder = "C:\Temp" 'Path to the folder to delete, then re-create
If fso.FolderExists(Folder) Then 'Check if the folder exists to avoid script errors
   fso.DeleteFolder Folder 'Delete folder
   fso.CreateFolder Folder 'Re-create empty folder
End If

Parsed in 0.010 seconds, using GeSHi 1.0.8.4

[eneles]

To delete all files in a folder (but not in subfolders).
Here a For > Next loop is necessary:

Syntax: [ Download ] [ Hide ]

Syntax: [ Download ] [ Show ]

Using vb Syntax Highlighting

Set fso=CreateObject("Scripting.FileSystemObject")
Folder = "C:\Temp\"
For Each file In fso.GetFolder(Folder).Files
file.delete
Next

Parsed in 0.007 seconds, using GeSHi 1.0.8.4

[eneles]

A more complex script that will let the user choose extensions and age of files to delete.

Syntax: [ Download ] [ Hide ]

Syntax: [ Download ] [ Show ]

Using vb Syntax Highlighting

' Folder to delete files
Folder = InputBox("Enter the folder where files should be deleted","Delete files in which folder?")
strFolder = Folder & "\"
' Delete files from sub-folders
Subfolders = true
' Files with extensions entered in the inputbox will be deleted
strExtensions = InputBox("Enter the type(s) of file(s) you want to delete - Separate with a comma","Which extensions to delete?")

' Maximum File Age (in Days).  Files older than this will be deleted.
Age = InputBox("Maximum age (days) of files to keep","Max age of files to keep?")

set objFSO = createobject("Scripting.FileSystemObject")

DeleteFiles strFolder,strExtensions, Age, Subfolders

wscript.echo "Selected files deleted"

sub DeleteFiles(byval strFolder,byval strExtensions,byval Age,Subfolders)
        set objFolder = objFSO.GetFolder(strFolder)
        For each objFile in objFolder.Files
                For each strExt in SPLIT(UCASE(strExtensions),",")
                        IF RIGHT(UCASE(objFile.Path),LEN(strExt)+1) = "." & strExt then
                                IF objFile.DateLastModIFied < (Now - Age) THEN
                                        objFile.Delete
                                        exit For
                                END IF
                        END IF
                Next
        Next  
        IF Subfolders = true then
                For each objSubFolder in objFolder.SubFolders
                        DeleteFiles objSubFolder.Path,strExtensions,Age, Subfolders
                Next
        END IF
END sub

Parsed in 0.019 seconds, using GeSHi 1.0.8.4