Die Seite kenne ich, da ich mich jetzt schon seit ein paar Tagen damit beschäftige aber noch keine Lösung gefunden hat die für mich funktioniert.
Ich weiss auch theoretisch wie man die Attribute verändert, dass Problem bei mir ist aber sobald ich eine Datei das Attribut ReadOnly gebe wird die Datei automatisch mit versteckt und ich weiss leider nicht mal im Ansatz wieso...
Habe auch schon probiert die Attribute als Zahlen einzugeben (16 usw.) oder als Text (vbReadOnly).
Habe z.B. hier mal den Code versucht den Microsoft auf Ihrer Seite angibt und auch bei diesem Code wird die entsprechende Datei bei der man die Attribute verändert ebenfalls auf versteckt gesetzt.
Dim fs, f, r
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("meine Pfadangabe")
If f.Attributes And 32 Then
r = MsgBox("The Archive bit is set, do you want to clear it?", vbYesNo, "Set/Clear Archive Bit")
If r = vbYes Then
f.Attributes = f.Attributes - 33
MsgBox "Archive bit is cleared."
Else
MsgBox "Archive bit remains set."
End If
Else
r = MsgBox("The Archive bit is not set. Do you want to set it?", vbYesNo, "Set/Clear Archive Bit")
If r = vbYes Then
f.Attributes = f.Attributes + 33
MsgBox "Archive bit is set."
Else
MsgBox "Archive bit remains clear."
End If
End If
|