Clear File Attributes From Entire Directory Tree of Files

This function removes attributes from files in the folder you specify in strFolder. It also can walk down all subfolders of this folder recursively. This function was written mainly for removing the read-only flag that all files have after you copy a bunch from a CD (oldattribute = vbReadOnly), but you can use it with other attributes as well. Look for the other constants for file attributes in the object browser (subset scripting). To use this function, you must first set a Reference to the “Microsoft Scripting Runtime”:

 Option ExplicitPrivate fso As New Scripting.FileSystemObjectPublic Function ClearAttribute(strFolder As _String, fIncludeSubfolders As Boolean, _oldAttribute As VbFileAttribute) As LongDim fld As Scripting.FolderDim subfld As Scripting.FolderDim file As Scripting.fileDim lngCount As LongSet fld = fso.GetFolder(strFolder)For Each file In fld.FilesIf file.Attributes And oldAttribute Thenfile.Attributes = file.Attributes _And Not oldAttribute' Count the fileslngCount = lngCount + 1End IfNext fileIf fIncludeSubfolders ThenFor Each subfld In fld.SubFolders' Add total from this subfolder' And its subfolderslngCount = lngCount + _ClearAttribute(subfld.Path, _True, oldAttribute)Next subfldEnd If' Number of total processed filesClearAttribute = lngCountEnd Function
Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

The Latest

microsoft careers

Top Careers at Microsoft

Microsoft has gained its position as one of the top companies in the world, and Microsoft careers are flourishing. This multinational company is efficiently developing popular software and computers with other consumer electronics. It is a dream come true for so many people to acquire a high paid, high-prestige job

your company's audio

4 Areas of Your Company Where Your Audio Really Matters

Your company probably relies on audio more than you realize. Whether you’re creating a spoken text message to a colleague or giving a speech, you want your audio to shine. Otherwise, you could cause avoidable friction points and potentially hurt your brand reputation. For example, let’s say you create a

chrome os developer mode

How to Turn on Chrome OS Developer Mode

Google’s Chrome OS is a popular operating system that is widely used on Chromebooks and other devices. While it is designed to be simple and user-friendly, there are times when users may want to access additional features and functionality. One way to do this is by turning on Chrome OS