Make File Writable macro

We use MKS to archive our code and always set the local copy to read-only
when it is locked. Sometimes either another person has a file locked that I
need to modify or I want to simply try out a change without modifying the
project. For that I need to simply remove the read-only attribute from my
file. Using a DOS box or Explorer is time consuming at best. Since I had
used a macro in Borland for this purpose, I was spoiled and needed one in
Visual Studio. Here is a simple one that does the trick.

Sub MakeFileWriteable()

‘DESCRIPTION: Remove Read-Only File attribute from active document

‘ Author: V. Sauder

‘ Copyright: Hekimian Labs, Inc. 1999
    Dim doc

    Set doc = ActiveDocument

    Dim fname

    fname = doc.FullName

	if (doc.ReadOnly) then

		doc.ReadOnly = False

		msg = ToggleReadOnlyBit(fname)

		‘MsgBox msg

	end if

	Set doc = nothing
End Sub
const ReadOnly = 1

Function ToggleReadOnlyBit(filespec)
‘ Copyright Microsoft. VBscript example code slighty modified.
	Dim oFS, oFile

	Set oFS = CreateObject(“Scripting.FileSystemObject”)

	Set oFile = oFS.GetFile(filespec)

	oFile.attributes = oFile.attributes xor ReadOnly

	If oFile.attributes and ReadOnly Then

		ToggleReadOnlyBit = “ReadOnly bit is now set.”

	Else

		ToggleReadOnlyBit = “ReadOnly bit is now cleared.”

	End If
End Function