Attachments | ||
---|---|---|
|
Version:0.9 StartHTML:00000097 EndHTML:00006455 StartFragment:00000111 EndFragment:00006419 *&---------------------------------------------------------------------*
*& Report ZCGTEST1
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zcgtest1.
START-OF-SELECTION.
PERFORM do_it.
*&---------------------------------------------------------------------*
*& Form do_it
*&---------------------------------------------------------------------*
FORM do_it.
DATA: lv_para TYPE string
, lt_data TYPE STANDARD TABLE OF text255 WITH DEFAULT KEY
.
lv_para = 'out-file -Filepath "C:\Users\ext_GradolfC\Documents\$drives.txt" -InputObject ( Get-PsDrive -PSProvider FileSystem ) -Encoding ASCII'.
cl_gui_frontend_services=>execute(
EXPORTING
application = 'powershell'
parameter = lv_para
minimized = CONV #( abap_true )
synchronous = CONV #( abap_true )
EXCEPTIONS
OTHERS = 0 ).
/pronovia/cl_ui_type_def=>gui_srv->file_upload(
EXPORTING
i_filename = 'C:\Users\ext_GradolfC\Documents\$drives.txt'
i_filetype = 'ASC'
IMPORTING
e_data_tab = lt_data
EXCEPTIONS
OTHERS = 0 ).
LOOP AT lt_data ASSIGNING FIELD-SYMBOL(<ls_data>).
WRITE: / <ls_data>.
ENDLOOP.
ENDFORM.