Recursively Change File Attributes in a Given Directory

Category:

Files and Directories

Type:

Snippets

Difficulty:

Intermediate

Author:

Anonymous

Version Compatibility: Visual Basic 6, Visual Basic Script

More information:

The snippet of code included here utilizes the VB InputBox function to accept and pass in a directory path. This path is verified and the user is then asked to say yes or no to continuing the job. This can be easily placed into a function to be more efficient and reusable.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

option explicit
dim fso, strPath, objFolder, objSubFolders, objFile, objSFldr, retVal

Set fso = CreateObject("Scripting.FileSystemObject")

'set the path to the folder we're working in

strPath = inputBox("Please enter the physical path to a directory.", "File Attribute Setter")

if strPath <> "" and fso.folderExists(strPath) then

retVal = msgbox("Changing the attributes of all files in " & vbCrLf & strPath & vbCrLf & "to Read-only = NO and Hidden = No.", vbYesNo+vbQuestion, "File Attribute Setter")

if retVal = 6 then
		set objFolder = fso.getFolder(strPath)
		
		for each objFile in objFolder.files
		    objFile.attributes = 32
		next
		
		set objSubFolders = objFolder.subFolders
		
		for each objSFldr in objSubFolders
			for each objFile in objSFldr.files
				objFile.attributes = 32
			next
		next
		
		set objSubFolders = nothing
		set objFolder = nothing
		set fso = nothing
		
		msgbox "Job complete!"
	else
		msgBox "Job cancelled.", vbOKOnly+vbInformation, "File Attribute Setter"
	end if
else
	msgBox "You must enter a valid directory path to continue.", vbOKOnly+vbExclamation, "File Attribute Setter" 
end if