title image


Smiley Wenn Du Dateiattribute meinst wie schreibgeschützt...
dann zB. so

Function test()



Dim fs, f, r

Dim filespec As String



filespec = CurrentDb.Name

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFile(fs.GetFileName(filespec))

If f.Attributes And 1 Then

r = MsgBox("Das ReadOnly-Bit ist aktiviert, möchten Sie dies aufheben?", vbYesNo, "Archiv-Bit aktivieren/deaktivieren")

If r = vbYes Then

f.Attributes = f.Attributes - 1

MsgBox "ReadOnly-Bit ist deaktiviert."

Else

MsgBox "ReadOnly-Bit bleibt aktiviert."

End If

Else

r = MsgBox("Das ReadOnly-Bit ist nicht aktiviert. Möchten Sie es aktivieren?", vbYesNo, "Archiv-Bit aktivieren/deaktivieren")

If r = vbYes Then

f.Attributes = f.Attributes + 1

MsgBox "ReadOnly-Bit ist aktiviert."

Else

MsgBox "ReadOnly-Bit bleibt deaktiviert."

End If

End If

End Function



Gruß

Robert



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: