Attrib i Word-dokument

Du kan f.eks. bruge FSO (File Scripting Object)

1) Nyt Project
2) Project > References > MicroSoft Scripting Runtime
3) Kode:

Dim FSO As FileSystemObject
Dim MyFolder As Folder
Dim MyFile As File

Set FSO = New FileSystemObject
Set MyFolder = FSO.GetFolder("C:\")

For Each MyFile In MyFolder.Files
  If MyFile.Attributes = ReadOnly Then
    MsgBox "Filen " & MyFile.Name & " er Readonly"
  End If
Next

Set MyFolder = Nothing
Set FSO = Nothing

ja eller:


Option Explicit

Private Sub Form_Load()
Dim strPath As String

  strPath = "C:\dokument.doc"

  If GetAttr(strPath) = vbReadOnly + vbArchive Or _
    GetAttr(strPath) = vbReadOnly Then
    MsgBox "Filen er skrivebeskyttet."
      Else
    MsgBox "Filen er ikke skrivebeskyttet."
  End If
End Sub

shj: Hvorfor egentligt

  If vbReadOnly + vbArchive Or GetAttr(strPath) = vbReadOnly Then ...?

Hvorfor ikke bare

  If GetAttr(strPath) = vbReadOnly Then

Ellers må jeg indrømme, at din løsning nok er lidt smartere end min, med mindre webcon har andet at bruge FSO til, nu har har oprettet objektet :o)

hvis en file er arkiv kan den jo også være skrivebeskyttet ;)

man kan også gøre sådan.. ;)


'----------------------------------- Form1 -----------------------------------
Option Explicit

Private Const INVALID_HANDLE_VALUE = -1

Private Declare Function GetFileAttributes Lib "kernel32" _
                        Alias "GetFileAttributesA" ( _
                        ByVal lpFileName As String) As Long

' vbNormal    0  Normal (default for Dir and SetAttr)
' vbReadOnly  1  Read-only
' vbHidden    2  Hidden
' vbSystem    4  System file
' vbVolume    8  Volume label
' vbDirectory 16  Directory or folder
' vbArchive  32  File has changed since last backup

Private Sub Form_Load()
Dim strPath As String
Dim lngRet As Long
  strPath = "C:\filenavn.xxx"
 
  lngRet = GetFileAttributes(strPath)
  If lngRet <> INVALID_HANDLE_VALUE Then
    Select Case lngRet
          Case 1, 3, 5, 33, 35, 37
            ' vbReadOnly = 1
            ' vbReadOnly + vbHidden = 3
            ' vbReadOnly + vbSystem = 5
            ' vbReadOnly + vbArchive = 33
            ' vbReadOnly + vbArchive + vbHidden = 35
            ' vbReadOnly + vbArchive + vbSystem = 37
            MsgBox "Filen er skrivebeskyttet."
          Case Else
            MsgBox "Filen er ikke skrivebeskyttet."
    End Select
      Else
    MsgBox "Kan ikke finde filen."
  End If
End Sub
'----------------------------------- Form1 -----------------------------------

"hvis en file er arkiv kan den jo også være skrivebeskyttet ;)"

Ja - det kan den også hvis den er skjult, er en systemfil osv. Det jeg mener er, om "If GetAttr(strPath) = vbReadOnly" ikke er tilstrækkeligt til at bestemme om en fil er skrivebeskyttet?

Jeg takker foreløbigt for Jeres svar, men kan desværre først afprøve det på arbejdet i morgen. Jeg skal nok vende tilbage a.s.a.p.

/webcon

I er ikke glemt. Jeg har bare ikke haft tid til at teste endnu, så der går lige et par dage.

Et par dage??? Hvor lang tid tager det at copy/paste (he he)
Brug du blot den tid du skal :o)

martin_moth < Nej det kommer jo an på hvad din file er, den kan jo være flere ting på en gang.

se nu på vadierne her under:

' vbReadOnly = 1
' vbReadOnly + vbHidden = 3
' vbReadOnly + vbSystem = 5
' vbReadOnly + vbArchive = 33
' vbReadOnly + vbArchive + vbHidden = 35
' vbReadOnly + vbArchive + vbSystem = 37

GetAttr() vil retuner det tal som passer til filen. ;)

sjh:

Ja, men det jeg ikke forstod var hvorfor du i første omgang så kun tog "vbReadOnly + vbArchive" og "vbReadOnly" med, men ikke fx. "vbReadOnly + vbArchive + vbHidden" osv...

Ligemeget, tror alle fatter poienten nu, selv mig ;o)

Jeg skal starte med at beklage at jeg først nu vender tilbage, men har været udenbyes nogle dage.

Mange tak for Jeres gode forslag. Det er så absolut noget jeg kan bruge til noget kreativt... takker