Hallo, Makrus!
Gibt es die Möglichkeit unter VB die Seitenzahl eines
Tiff-Dokuments zu ermitteln und die dann zu addieren?
Bestimmt. Zum einen kannst Du mit der Dir-Funktion alle Dateien auslesen. Aufruf ungefähr so:
strDatei = Dir("\*.tif")
Do While strDatei""
lngGesamtseiten = lngGesamtseiten + GetSeitenanzahl(strDatei)
strDatei = Dir()
Loop
Dann brauchst Du „nur“ noch die Funktion GetSeitenanzahl, die Dir aus der übergebenen TIF-Datei die Seiten ausliest und extrahiert. Nun kommen wir zum „Problem“: Ich weiß nicht genau, wie. Das TIFF steht ja für Tagged Image File Format. Heißt, dass alle Bildinformationen als Tags vorhanden sind. Dazu bräuchtest Du dann mal eine TIFF-Spezifikation, damit Du weißt, nach welchem Tag Du suchen musst. Leider sind die nicht im Klartext zu sehen wie „“, sondern mit kryptischen Zahlen, z. B. 08 15.
Dann kannst Du einfach die Datei öffnen, nach der Zeichenfolge suchen, Wert auslesen, fertig.
Vor Urzeiten habe ich mal so was gebastelt und alle möglichen Informationen wie Auflösung, Farbmodus etc. ausgelesen und dann die Datei in eine bestimmte andere Auflösung nach SW konvertiert. Habe aber die Spez. vom TIFF nicht mehr greifbar. Also google am besten mal danach.
Gruß, Manfred
