Deleting "Read Only" file?

[hipopony66]

Hey, I just found a small bug in my program. When a user tries to delete a file that they have selected in the listview, and the file is a "read only" file, Runtime error '75 occurs. File Path access denied. I'm using the "Kill" function to delete files. How can I make it delete a "read-only file" without causing an error? Any help is appreciated.

[mikef]

Check the attributes of the file first. If it is read-only, then change the attribute to -r and then KILL it.

[hipopony66]

How would I check the file attributes and change the read only propery? API?

[courchjo]

something like this;

Dim fso As New FileSystemObject
Set fil1 = fso.GetFile("c:\YourDirectory\" & aFile)
If fil1.Attributes = 1 Then
fil1.Attributes = 0
End If

then kill it

[hipopony66]

A file has more than one attribute right? Like read only, archived,etc. How do I know which one to set?

[courchjo]

look at the file attributes in your object browser and there is a list of all the attributes. search filesystemobject and you will see the fileattribute, click on fileattribute and you will see all of the members.

[courchjo]

oh i didn't read your question right. Just set the attribute to 0 or Normal and kill it!

[Gaylord Focker]

Courchjo,

I am not given the choice of FileSystemObject when dimming fso. You wouldn't happen to know what library I should be referancing? thx

[courchjo]

Hey, Use the reference to Microsoft Scripting Runtime
C:\winnt\system32\scrrun.dll