Hallo Bruno,
du kannst die Datei im Explorer anwählen, rechte Maustaste und die iProperties anzeigen lassen. Da gibt's unter 'Details' die Einträge 'Erstellt mit' und 'Letzte Aktualisierung mit'.
Oder über Code:
Private Sub getFileSaveInfo()
Dim oApp As Inventor.Application
Set oApp = ThisApplication
Dim oDoc As PartDocument
Set oDoc = oApp.ActiveDocument
Debug.Print oDoc.SoftwareVersionCreated.Major
Debug.Print oDoc.SoftwareVersionCreated.Minor
Debug.Print oDoc.SoftwareVersionCreated.ServicePack
Debug.Print oDoc.SoftwareVersionCreated.BuildIdentifier
Debug.Print oDoc.SoftwareVersionCreated.DisplayName
Debug.Print ""
Debug.Print oDoc.SoftwareVersionSaved.Major
Debug.Print oDoc.SoftwareVersionSaved.Minor
Debug.Print oDoc.SoftwareVersionSaved.ServicePack
Debug.Print oDoc.SoftwareVersionSaved.BuildIdentifier
Debug.Print oDoc.SoftwareVersionSaved.DisplayName
End Sub
Wenn Du aber ganze Verzeichnisse durchsuchen willst, müsstetst Du Dir 'ne Applikation bauen, mit der Du ganze Verzeichniss-Strukturen durchsuchen kannst --> Filenamen in Liste schreiben oder direkt mit IV öffnen und dann irgendwas machen.
Was willst Du denn genau mit den File machen ?
Grüsse,
Paul
www.morecam.ch/cad.htm
[Diese Nachricht wurde von PaulSchuepbach am 07. Sep. 2005 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP