hi every one
plz tell me how set the attibute of folder at run time (such like Archive,hidden,readonly) when i create a folder on run time and copy any file in it then it give error permission denied (NTFS System).

Plz help me

hi,

you can change the attributes of a folder at runtime using the FileSystemObjects.

here is the sample code to change the attributes of the folder (F:\MyFolder for example, setting a Hidden and ReadOnly attribute)

---------------------------------------------------------
Dim objFSO As Scripting.FileSystemObject
Dim objFolder As Scripting.Folder
Dim strFolderPath As String

Dim attr As Scripting.FileAttribute 'Datatype for specifying the Attributesattr = Hidden Or ReadOnly 'Specifying the Attributes for the Folder
'you can use the OR operator to specify multiple attributes

strFolderPath = "F:\MyFolder" ' Path of the Folder, to change attributes
Set objFSO = New Scripting.FileSystemObject
Set objFolder = objFSO.GetFolder(strFolderPath)

objFolder.Attributes = attr 'Setting the Attributes for the Folder
-------------------------------------------

Regards,
Raghu

babu ji

Surendra