Seitenanzahl

Info$=PDF INFO$("~pdf/schuldrecht.pdf")
Ll=LIST LEN(Info$)
IF Ll THEN
  Seiten=0
  FOR I=1 TO LL
    Name$=LIST GET NAME$(Info$;I)
    IF Info$="Pages" THEN
      Seiten=IVAL(LIST GET$(Info$;I))
      BREAK
    END IF
  NEXT
  DISP "Ergebnis:\n" Info$ "\n"
  IF Seiten THEN DISP "Anzahl Seiten: " Seiten "\n"
  END IF
END IF
:Ergebnis:
:{ Pages->10; CreateDate->{ 2012;10;09;08;16;09 }; ModifyDate->{ 2012;10;09;08;18;03 };
Encrypted->1; Title->"Kanzlei am"; Author->"Kanzlei am Steinmarkt PC 04"; Creator->"Acrobat
PDFMaker 6.0 für Word"; Producer->"Acrobat Distiller 6.0 (Windows)"; Version->"1.5" }
:Anzahl Seiten:  10