| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Dateigröße (907 / mal gelesen)
|
noctis79 Mitglied Konstrukteur/ CAD-Administrator
Beiträge: 164 Registriert: 07.10.2009 Inventor Pro 2017 Cideon Workspace
|
erstellt am: 08. Nov. 2017 13:31 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, nach knapp 3 Jahren meld ich mich mal wieder zurück... Und.. Ich weiß nichts mehr... Ich steh grad voll auf dem Schlauch... Ich durchlauf eine Baugruppe über die Occurences. Und möchte bei jedem Bauteil die Dateigröße prüfen. Bloß: Wo finde ich die Dateigröße?!? Kann mir da mal jemand einen Tipp geben? Danke Euch!!!! Edit: Da ich immer noch keinen Ansatz über die IV- API gefunden habe, verwende ich dafür jetzt folgendes: Code: Public Function FileSize(ByVal sFile As String) As Long 'Dateigröße ermitteln ==> ToDo: Wenn Möglich, über IV Funktion und nicht über das FSO Dim Size As Long On Local Error Resume Next Size = FileLen(sFile) FileSize = IIf(Err = 0, Size, -1) FileSize = FileSize / 1024 On Local Error GoTo 0 End Function
Dazu muss der Verweis auf Microsoft Scripting Runtime gesetzt werden. [Diese Nachricht wurde von noctis79 am 08. Nov. 2017 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
mb-ing Mitglied F&E-Mangement, MB-Ing. (u)
Beiträge: 723 Registriert: 06.09.2012
|
erstellt am: 27. Nov. 2017 11:05 <-- editieren / zitieren --> Unities abgeben: Nur für noctis79
Hi noctis79, in den IProperties taucht ja die Dateigröße eigentlich auf. Aber wenn ich das Folgende auswerte, spuckt er mir keine Dateigröße aus... Ist das bei Dir auch so? Sub PropertyNameList() Dim oProp As Property, i As Integer, j As Integer For j = 3 To ThisApplication.ActiveDocument.PropertySets.Count For i = 1 To ThisApplication.ActiveDocument.PropertySets(j).Count Set oProp = ThisApplication.ActiveDocument.PropertySets(j).Item(i) Debug.Print oProp.Name Next Next End Sub Das macht auch wenig Hoffnung: https://ww3.cad.de/foren/ubb/uploads/axi92/IV2014_VBA_iProperties.pdf Dann geht es anscheinend nur mit FSO etc.
Grüße MB-Ing.
------------------ Wissen ist Macht. Nichts wissen macht auch nichts Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
noctis79 Mitglied Konstrukteur/ CAD-Administrator
Beiträge: 164 Registriert: 07.10.2009 Inventor Pro 2017 Cideon Workspace
|
erstellt am: 27. Nov. 2017 11:53 <-- editieren / zitieren --> Unities abgeben:
Hi, und ja. Gleiches Verhalten bei mir. Finde im Set kein Property zur Dateigröße, leider. Das FSO funktioniert allerdings sehr gut und schnell. Werde ich dann beibehalten. Danke Dir für Deine Rückinfo! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
mb-ing Mitglied F&E-Mangement, MB-Ing. (u)
Beiträge: 723 Registriert: 06.09.2012
|
erstellt am: 27. Nov. 2017 12:01 <-- editieren / zitieren --> Unities abgeben: Nur für noctis79
Zitat: Original erstellt von noctis79: Hi, und ja. Gleiches Verhalten bei mir. Finde im Set kein Property zur Dateigröße, leider.Das FSO funktioniert allerdings sehr gut und schnell. Werde ich dann beibehalten. Danke Dir für Deine Rückinfo!
@noctis79: Für FSO musst Du einen Verweis setzen oder? Wird dieser mit dem Code hinzugefügt oder muss man den manuell setzen? Grüße MB-Ing. ------------------ Wissen ist Macht. Nichts wissen macht auch nichts Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Entwicklungsingenieur (m/w/d) Konstruktion | Menschen und Technologien zu verbinden, den Perfect Match für unsere Kunden zu gestalten, immer die richtigen Expert:innen für die jeweilige Herausforderung zu finden - das ist unser Anspruch bei FERCHAU und dafür suchen wir dich: als ambitionierte:n Kolleg:in, der:die wie wir Technologien auf die nächste Stufe bringen möchte.
Entwicklungsingenieur (m/w/d) Konstruktion Chemnitz Das ... | Anzeige ansehen | Konstruktion, Visualisierung |
|
noctis79 Mitglied Konstrukteur/ CAD-Administrator
Beiträge: 164 Registriert: 07.10.2009 Inventor Pro 2017 Cideon Workspace
|
erstellt am: 27. Nov. 2017 12:04 <-- editieren / zitieren --> Unities abgeben:
|