---

Hallo zusammen

Ich versuche den Wert von "Erstellt:" auf dem Tab "Allgemein" in den iProperties auszulesen um diesen mit dem Erstellungsdatum auf dem Projekt-Tab zu vergleichen. Wenn das Erstellungsdatum kleiner als das "Erstellt:" Datum, soll dieses gleich dem "Erstellt:"-Datum sein und den aktuellen Benutzer als Konstrukteur in die iProperties schreiben.

Kann mir da jemand weiterhelfen?

Beste Grüsse
Raphael

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

---

Hallo

Der iProp Erstellungsdatum ist kein iProp, sondern kommt aus den Dateieigenschaften. Im VBA-Editor unter "Extras"-->"Verweise" den Haken bei "Microsoft Scripting Runtime" setzen, sonst funktioniert das FileSystemObject nicht.
Ungetestet, aber so in etwa:

Code:

---

Option Explicit

Private Sub Datumsvergleich()

Dim oApp As Inventor.Application
Set oApp = ThisApplication
Dim oDoc As Document
Set oDoc = oApp.ActiveDocument

Dim oPropDate As Date
oPropDate = oDoc.PropertySets.Item("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").Item("Creation Time").Value

Dim oFS As FileSystemObject
Set oFS = CreateObject("Scripting.FileSystemObject")
Dim oFile As Object
Set oFile = oFS.GetFile(oDoc.FullFileName)

Dim oFileDate As Date
oFileDate = Format(oFile.DateCreated, "DD.MM.YYYY")

If oPropDate < oFileDate Then
    oDoc.PropertySets.Item("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").Item("Creation Time").Value = oFileDate
    oDoc.PropertySets.Item("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").Item("Designer").Value = oApp.UserName
End If

End Sub

---

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

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

---

Hallo Ralf

Herzlichen Dank für deine schnelle Lösung. Ich werde es heute noch testen, aber es liest sich schon mal genau nach dem was ich brauche
Volle 10 Ü's für dich.

Beste Grüsse
Raphael

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

---

Wow Ralf, ich wünschte ich könnte auch ohne es zu testen eine solche Punktlandung hinlegen. chapeau
Macht genau was es soll

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