Hi Ho Thomas....
Erst einmal vielen Dank für deine Antwort... (Evil_Bart da nur Bart einfach zu ARTIG !!! *ggg*)
Versuche mich gerade langsam an das Prob ranzuschleichen.... ;-)) (Alles so neu hier...!)
Klappt aber leider irgendwie nicht.... Lösung ???
Kurz noch mal zu meinem Prob.. Erzeuge über ein Programm eine TIFF und gleichzeitig eine DWG Datei...
Möchte die DWG in das Projektverzeichnis schreiben in der die aktuelle *.IDW aufgerufen wurde ... Pech ist wenn der USER die *.idw ausgeliehen hat... (Die DWG wird dann Lokal gespeichert.. *grumpf*)
Vielen Dank jetzt schon mal....
LG
Andreas
*****************************************
Public Sub IsCheckedOutToMe()
Dim DocFullName As String
Dim CheckedOut As Boolean
Dim CheckedOutBy As String
Dim oApp As Application
Set oApp = ThisApplication
Dim oDoc As DrawingDocument
Set oDoc = ThisApplication.ActiveDocument
'Hier erhalte ich den [DOCNAME.idw]
DocFullName = Right(oDoc.FullFileName, 17)
Dim oADoc As ApprenticeServerDocument
Dim oA As New ApprenticeServerComponent
Rem Statusüberprüfung (Ausgecheckt ?)
Set oADoc = oA.Open(DocFullName)
' *******************************************************
' Beim Sprung in die Zeile CheckedOut bekomme ich dann den
' Laufzeitfehler 445 – Objekt unterstützt diese Aktion nicht!
CheckedOut = oADoc.ReservedForWrite
' *******************************************************
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP