| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | Von Digital Twins bis Hochleistungs-Computing: PNY präsentiert seine Zukunftstechnologien für die Industrie von morgen, eine Pressemitteilung
|
|
Autor
|
Thema: Datei öffnen (1676 mal gelesen)
|
BerndE
Mitglied
Hochbautechniker
   Beiträge: 557
Registriert: 05.07.2003
|
erstellt am: 24. Mai. 2006 17:11  <-- editieren / zitieren -->   Unities abgeben:          
Hi Forum, ich möchte mit VBA eine Datei öffnen. Klappt auch. Leider wird sie auch geöffnet, wenn diese Datei von einem anderen user bereits geöffnet ist. (dann allerdings schreibgeschützt) Wie kann ich abfrage, ob eine Datei bereits offen ist um dann auf die Antwort entsprechend zu reagieren?
Bernd ------------------
Bernd Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Carsten1210
Mitglied
staatl. geprüfter Holztechniker
Beiträge: 1360
Registriert: 24.07.2002 AutoCAD ACA 2024
Solidworks 2022 Sp5
Enterprise PDM 2022 Sp5
Pascam Woodworks
Visual Studio 2017 Pro
Windows 10 64Bit
Dell Precision 3660
Intel Core i9-12900K
32 GB Arbeitsspeicher
2x Dell U2415
|
erstellt am: 24. Mai. 2006 18:03 <-- editieren / zitieren --> Unities abgeben: Nur für BerndE 
Hallo Bernd, Nimm folgendes: Sub TestDateiOeffnen()
Dim Meldung As String
Datei = "C:\test.dxf"
rc = CheckAllocation(Datei, Meldung)
If rc = 0 Then
'Öffne Datei
Else
MsgBox Meldung, vbExclamation
End If
End Sub Function CheckAllocation(ByVal Datei As String, Meldung As String) As Integer
On Error Resume Next
slot = FreeFile
Open Datei For Binary Access Read Lock Read As #slot
Fehler = Err.Number
strFehler = Err.Description
Close #slot
On Error GoTo 0
Select Case Fehler
Case 0 'Datei ist nicht allokiert
CheckAllocation = 0
Case 70 'Die Datei ist bereits allokiert
Meldung = "Die Datei '" & Datei & "' wird bereits benutzt."
CheckAllocation = 4
Case Else 'Unbekannter Fehler
Meldung = Fehler & vbCr & strFehler
CheckAllocation = 16
End Select
End Function Gruß, Carsten
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
BerndE
Mitglied
Hochbautechniker
Beiträge: 557
Registriert: 05.07.2003
|
erstellt am: 24. Mai. 2006 18:08 <-- editieren / zitieren --> Unities abgeben:
|
BerndE
Mitglied
Hochbautechniker
Beiträge: 557
Registriert: 05.07.2003 Revit 2013
ACA 2012 deutsch
BuildingOne 5.4.5
Win7
WindowsNetz
|
erstellt am: 27. Mai. 2006 18:09 <-- editieren / zitieren --> Unities abgeben:
|
| | Anzeige: | Infos zum Werbeplatz >> | BlechCAD 3D CAD APP für Blechverarbeitung Metallbau- Fassadenbau- Planer, die aus fertigen Ansichten und Schnitten von Blechen, die Abwicklung zu bearbeiten haben, für eine NC-Software und Kantbankdaten.
Speziell für Aufträge die immer verschiedene Blecharten und Abmessungen aufweisen.
Blechabwicklungen für die Fertigung erstellen in 2-3 Mi
|
|
Carsten1210
Mitglied
staatl. geprüfter Holztechniker
Beiträge: 1360
Registriert: 24.07.2002
|
erstellt am: 27. Mai. 2006 20:57 <-- editieren / zitieren --> Unities abgeben: Nur für BerndE
Hallo Bernd, Schön, das es das passende für dich war. Nur zu Info: Man kann nur einmal Unities für einen Beitrag geben. Aber Danke fürs Feedback, da man dieses auch nicht immer bekommt. Gruß, Carsten [Diese Nachricht wurde von Carsten1210 am 27. Mai. 2006 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de
| 
