---

Hallo Forum,
nach langem suchen und lesen habe ich leider nichts gefunden bzw. ich bin blind.
Kann mir jemand sagen ob es mit VBA in SWX möglich ist den Schreibschutzzustand der gerade geöffneten Datei auszulesen.
Ich will ihn nur wissen nicht verändern.

Gruß
Udo

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

---

Hallo Udo

ich bin zwar seit langem nicht mehr in VBA unterwegs, aber erinnere mich, dass es auf DOS-Ebene das Kommando gab:
ATTRIB [+R|-R] [+A|-A] [+S|-S] [+H|-H][[Laufwerk:][Pfad]Dateiname] [/S]

In der Regel sind die auch aus VBA heraus anzusprechen, soweit ich weiß nutzt SWX die Windows-Attribute

Viele Grüße - Axel

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

---

Hallo Udo,

du kannst es mit der Funktion GetAttr() ermitteln:

Code:

---

    Option Explicit
    Sub main()

    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
   
    Dim strDatei As String
    strDatei = swModel.GetPathName

    Dim info As VbFileAttribute
    info = GetAttr(strDatei)
   
    Debug.Print info

End Sub

---

Die Bedeutung der Werte für info findest du unter

https://docs.microsoft.com/en-us/openspecs/microsoft_general_purpose_programming_languages/ms-vbal/50ea77ee-b398-4a8d-943a-edf517d35401

EDIT: URL verbessert  

==========
Gruß
Andreas
==========

[Diese Nachricht wurde von ad_man am 23. Jul. 2020 editiert.]

[Diese Nachricht wurde von ad_man am 23. Jul. 2020 editiert.]

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

---

Danke. Funktioniert super.

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