---

Guten Tag,

wir haben gerade ein Problem mit einem Makro, welches prüfen soll ob eine gewisse Datei (*.slddrw) aktiv geöffnet ist.

Sub Testing()

    MsgBox "Is file open?: " & IsFileOpen("C:\test.SLDDRW")

End Sub

Public Function IsFileOpen(ByVal File_Path As String) As Boolean

    Dim fileNum As Long, errNumber As Long

    On Error Resume Next
    fileNum = FreeFile()

    Open File_Path For Input Lock Read As #fileNum
    Close fileNum
    errNumber = Err

    'On Error GoTo 0

    Select Case errNumber

        Case 0
            IsFileOpen = False

        Case 70
            IsFileOpen = True

        Case Else
            'Error errNumber

    End Select

End Function

Dieses Makro funktioniert in unserem Unternehmen mit SolidWorks 2018 problemlos, sobald dieses allerdings auf einem anderen PC mit SolidWorks 2021-22 Student gestartet wird öffnet sich der Laufzeitfehler 70, Zugriff verweigert.

Jemand eine Idee woran es liegen könnte?

MFG

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

---

Einfach mal ins Blaue geschossen...der PC hat generell Berechtigungen auf den Pfad (Netzlaufwerk etc.) zuzugreifen?

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

---

die Datei mit der wir das testen wurde extra mit dem PC mit der SWX student version erstellt, also ja, zugriff hat er :-)

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

---

Dann frag ich mal anders.

Was wurde denn schon versucht?

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

---

Falls die Datei in irgendeinem anderen Programm geöffnet ist:

.de/2018/10/23/geoeffnete-dateien-unter-windows-herausfinden/" TARGET=_blank>https://www.windows-FAQ.de/2018/10/23/geoeffnete-dateien-unter-windows-herausfinden/

[Diese Nachricht wurde von riesi am 12. Jul. 2022 editiert.]

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

---

um ehrlich zu sein, bis auf die Prüfung des Schreibrechtes auf dem Pfad/die Datei... noch nichts !

Habe nachgesehen, ob Updates für den PC ausstehen, dem ist nicht so.

Ich habe irgendwo was von "Registry" gelesen, konnte damit aber herzlich wenig anfangen, kann es sein, dass der SWX Student diesbezüglich gewisse Rechte braucht die es gar nicht hat?

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

---

Als URL mit dem Stichwort FAQ als Bestandteil sieth das ja gruselig aus.
du musst die Adresse kopieren, im Browser einfügen und dann den Erklärtext in eckigen Klammern und Leerzeichen entfernen ...

Code:

---

https://www.windows-FAQ.de/2018/10/23/geoeffnete-dateien-unter-windows-herausfinden/

---

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

---

Zitat:

---

Original erstellt von Christian_W:
Als URL mit dem Stichwort FAQ als Bestandteil sieth das ja gruselig aus.
du musst die Adresse kopieren, im Browser einfügen und dann den Erklärtext in eckigen Klammern und Leerzeichen entfernen ...

Code:

---

https://www.windows-FAQ.de/2018/10/23/geoeffnete-dateien-unter-windows-herausfinden/

---

---

Aber erst mit deaktivieren der smilies linkt der Link auch richtig .-)

https://www.windows-FAQ.de/2018/10/23/geoeffnete-dateien-unter-windows-herausfinden

------------------

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

---

Hi Gemeinde!
Nur so ein Gedanke...
Könnte es ein CreateObject-Problem sein, wie hier diskutiert
http://ww3.cad.de/foren/ubb/Forum2/HTML/016254.shtml#000005
Vielleicht ist das der Unterschied Eurer Rechner, alle mit SWX2018 funktionieren, der mit höherer SWX-Version will das Makro nicht laufen lassen.
Grüßle H.

------------------
Hartmut

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