Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB
Expertise: Beginner
Feb 23, 2004

Changing the Attributes of a File

Say you're trying to overwrite an existing file, but its attribute is set to "Readonly," so it generates a "Permission Denied" error. The following code shows how to change the attribute to Normal mode to avoid this error:
 
    'Code shows hot to change the attribute of the file
    'reference Microsoft Scripting Runtime(Scrrun.dll) must be added.

    Dim fs As FileSystemObject
    Dim Path as string,Path1 as string

    Set fs = CreateObject("Scripting.FileSystemObject")
    Path = "C:\Test.bmp"
    Path1 = "D:\Test.bmp"
        Dim f As File
        If fs.FileExists(Path) Then
            Set f = fs.GetFile(Path)
            If f.Attributes <> 0 Then
                 f.Attributes = 0 'Normal
            End If
        End If
    Call fs.CopyFile(Path1, Path, True)
DevX Staff
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap