---

Hallo Forumuser,

wie kann ich per vba und public sub, also kein Code der an der jeweiligen Datei hängen muss, checken ob die gerade aktive Datei im Inventor schreibgeschützt ist oder nicht?

Danke für eure Hilfe!!

MfG
Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thomas,

schau mal in irgendeiner suchmaschine unter Dateiattribute mit vb auslesen

------------------
Gruß
SEHER
www.inventor-tools.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Seher

ich habe folgenden Code getestet!

Public Sub test()
MsgBox ThisApplication.ActiveDocument.FullFileName
GetAttr (ThisApplication.ActiveDocument.FullFileName)
MsgBox vbReadOnly
End Sub

Allerdings liefert dieser Code immer 1 als vbReadOnly!
Ich denke das ist der Fall, weil die Datei offen ist oder?

Wie kann ich das ganze umgehen? Also Datei muss geöffnet sein dann muss gecheckt werden, ob die Datei gespeichert werden kann oder nicht!

MfG
Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@tom:

Da wird immer 1 ausgegeben, weil vbreadonly den wert 1 hat. Du mußt schon deine Abfrage auswerten und ausgeben, dann bekommst du bei vbnormal z.B. 0 und bei vbreadonly 1:

If GetAttr(odoc.FullFileName) = vbReadOnly Then

Call VBA.FileSystem.SetAttr(odoc.FullFileName, vbNormal)

End If

Gruß
reinhard

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Reinhard,

das hab ich mitlerweile auch schon rausgefunden mein Code funzt jetzt!
Aber danke für die Info!

Mfg Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP