Fjerne skrivebeskyttelse på fil

Højreklik på filen og fjerne fluebenet ved "Skrivebeskyttet"

Jeg vil gerne kunne gøre det fra scriptet.
Jeg tjekker alligevel allerede om filen eksisterer.

Du kan fjerne read-only tagget på en fil sådan her:

ReadOnly = 1
filename = "c:\testfil"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileObj = fso.GetFile(filename)

'Tester om readonly bitten er sat
If fileObj.attributes andReadOnly Then
  fileObj.attributes = fileObj.attributes - ReadOnly
End If

Perfekt, lige det jeg skulle bruge!
Tak!

Jeg kan ikke få det til at virke.

Her er et udklip af kode:
Objekter mv er defineret som jjust har skrevet.
ReadOnly er sat til 1
Installfolder indeholder stien og filename indeholder filnavn.

  If fso.FileExists(installfolder & filename) Then
    msgBox installfolder & filename & it_exists, vbInformation or vbOkOnly, Message_areyousure
    'Tester om readonly bitten er sat
      Set fileObj = fso.GetFile(installfolder & filename)
      If fileObj.attributes(andReadOnly) Then
          fileObj.attributes = fileObj.attributes - ReadOnly
      End If
      fso.Copyfile "." & filename, installfolder & filename, True
    Else
      fso.Copyfile "." & filename, installfolder & filename, True
    End If

Hvilken fejl får du?

Linjen "If fileObj.attributes(andReadOnly) Then"
Skal i hvert fald være
"If fileObj.attributes And ReadOnly Then"

Det var den linie som fejlede.
Jeg har rettet den til det du har skrevet, jeg kan bare ikke lige lure hvordan det hænger sammen!
Men bare det virker.