---

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

---

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

---

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

---

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

---

Den musst Du manuell setzen.
Sollte "Visual Basic for Applications" sein.

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