Schlagwort: SAPINFO

DATA: o_ole2 TYPE ole2_object.

* OLE2-Objekt vom Typ 'SAPINFO' erzeugen
CREATE OBJECT o_ole2 'SAPINFO'.

IF sy-subrc = 0.
  WRITE: / 'Header', o_ole2-header.
  WRITE: / 'Type', o_ole2-type.
  WRITE: / 'Handle', o_ole2-handle.
  WRITE: / 'CB-Index', o_ole2-cb_index.
  WRITE: / 'CLSID', o_ole2-clsid.

  DATA: lv_file_name TYPE char255 VALUE 'c:\\Test1.txt'.
  DATA: lv_file_size TYPE i.

* Methode aufrufen -> Filesize zu Filename holen
* weitere Methoden zu Objekt 'SAPINFO' in Funktionsgruppe SI72
  CALL METHOD OF o_ole2 'GetFileSize' = lv_file_size
    EXPORTING #1 = lv_file_name.

  IF sy-subrc = 0.
    WRITE: / lv_file_name.
    WRITE: / lv_file_size.
  ENDIF.

* OLE2-Objekt freigeben
  FREE OBJECT o_ole2.

ENDIF.