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



Comments

  • I need to print a read-only file, not the only problem.

    Posted by Legacy on 12/17/2003 12:00am

    Originally posted by: Mark

    The real problem is this. I know how to remove the read only property, but the person I got the disc from has made it to where you can't print it or remove the read-only. How do I get around this? Please E-mail me w/ any tips. Thank you!
    

    Reply
  • This can be the solution for reopenning problem!!

    Posted by Legacy on 12/17/2001 12:00am

    Originally posted by: JaeMyung Ryoo

    As many windows progammers do I use SourceSafe for my projects.
    And I also faced a reopenning problem when using this macro.
    The macro was pretty good for me but I hate that reopenned
    window's position is not the same as it was.
    So I tried to find me a solution. And I found!!
    Please enjoy this idea!! *^_^*

    --------------------------------------------------
    'keep the previous positions of the window
    FileName = ActiveDocument.FullName
    nWidth = ActiveWindow.Width
    nHeight = ActiveWindow.Height
    nLeft = ActiveWindow.Left
    nTop = ActiveWindow.Top

    .......

    'and reopen the document with previous settings
    Documents.Open(FileName)
    ActiveWindow.Left = nLeft
    ActiveWindow.Top = nTop
    ActiveWindow.Width = nWidth
    ActiveWindow.Height = nHeight

    Reply
  • How do you Make Word documents protected in coding??

    Posted by Legacy on 05/11/2001 12:00am

    Originally posted by: Ivan Cloete

    How do you make a word document protected if you create a word document in your coding ..It must be protected if the generating has finished...

    Ivan

    Reply
  • A much easier way to remove read-only (No macro)...

    Posted by Legacy on 10/27/2000 12:00am

    Originally posted by: Jeroen F. Richters

    Hi there.
    This is how I make my files writable:
    - Go into the Tools/Customize menu.
    - Select the tools tab.
    - At the bottom add a new tool called "Remove Read-Only" or something similar.
    - In the command section type "attrib.exe".
    - In the arguments section type "-R "$(Filepath)"".
    - Check the Close window on exiting checkbox.

    Now if you have the file you want to edit open, then run the Remove Read-Only tool: voila!

    Reply
  • devstudio macros, All project files

    Posted by Legacy on 07/30/2000 12:00am

    Originally posted by: Fredz

    How do you make all files in a projecct writable,
    essentially how do you get all files of a project ?
    Documents only gives you collection of open files.
    I can't believe this shouldn't be possible..i spent
    hours trying to find a way?

    Reply
  • CreateObject give an error ?

    Posted by Legacy on 01/28/1999 12:00am

    Originally posted by: M Y David

    On my computer V5.0 / NT4.0 SP3 , the macro doesn't run
    Do you know why ?

    Reply
Leave a Comment
  • Your email address will not be published. All fields are required.

Top White Papers and Webcasts

  • The exponential growth of data, along with virtualization, is bringing a disruptive level of complexity to your IT infrastructure. Having multiple point solutions for data protection is not the answer, as it adds to the chaos and impedes on your ability to deliver consistent SLAs. Read this white paper to learn how a more holistic view of the infrastructure can help you to unify the data protection schemas by properly evaluating your business needs in order to gain a thorough understanding of the applications …

  • With JRebel, developers get to see their code changes immediately, fine-tune their code with incremental changes, debug, explore and deploy their code with ease (both locally and remotely), and ultimately spend more time coding instead of waiting for the dreaded application redeploy to finish. Every time a developer tests a code change it takes minutes to build and deploy the application. JRebel keeps the app server running at all times, so testing is instantaneous and interactive.

Most Popular Programming Stories

More for Developers

Latest Developer Headlines

RSS Feeds