Список дисков

пошел_погулять

Не подскажите как получить список дисков на клиенте?

Alpina

Такого плана вопрос уже обсуждался: http://www.sapboard.ru/forum/viewtopic ... 0%EB%EE%E3

пошел_погулять

Про этот класс в курсе. Я забиваю во внутр.таб. именя дисков A-Z и методом класса смотрю существует ли каталог, а как постомотреть существующие диски на клиенте... Например в диске А может не быть дискеты и метод покажет, что диска нет, хотя привод есть.

РМщик

CL_GUI_FRONTEND_SERVICES => GET_FREE_SPACE_FOR_DRIVE

и обрабатывай excteption

РМщик

Список дисков

Code:

REPORT R.

DATA: SP TYPE I,
      KK TYPE STRING,
      IND TYPE I.

IND = 0.

DO 25 TIMES.
  CONCATENATE: SY-ABCDE+IND(1) ':' INTO KK.
  CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_FREE_SPACE_FOR_DRIVE
    EXPORTING
      DRIVE      = KK
    CHANGING
      FREE_SPACE = SP
    EXCEPTIONS
      OTHERS     = 99.
  CALL METHOD CL_GUI_CFW=>FLUSH
    EXCEPTIONS
      CNTL_SYSTEM_ERROR = 1
      CNTL_ERROR        = 2
      OTHERS            = 3.
  IF SP <> -1.
    WRITE:/ SY-ABCDE+IND(1),  'готов, свободно:' color 1, SP color 1.
  ELSE.
    WRITE:/ SY-ABCDE+IND(1),  'не готов' color 3.
  ENDIF.
  ADD 1 TO IND.
ENDDO.

РМщик

прошу прощения,
сначала неправильно понял
вопрос :oops:

вот как надо:

Code:

REPORT R.

DATA: KK TYPE STRING,
      IND TYPE I,
      DT TYPE STRING.

IND = 0.

DO 25 TIMES.
  CONCATENATE: SY-ABCDE+IND(1) ':' INTO KK.
  CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_DRIVE_TYPE
    EXPORTING
      DRIVE      = KK
    CHANGING
      DRIVE_TYPE = DT
    EXCEPTIONS
      OTHERS     = 99.
  CALL METHOD CL_GUI_CFW=>FLUSH
    EXCEPTIONS
      CNTL_SYSTEM_ERROR = 1
      CNTL_ERROR        = 2
      OTHERS            = 3.
  IF DT NE SPACE.
    WRITE:/ SY-ABCDE+IND(1), DT COLOR 4.
  ENDIF.
  ADD 1 TO IND.
ENDDO.

Пономарев Артем

Вместо CL_GUI_FRONTEND_SERVICES=>GET_DRIVE_TYPE можно использовать ФМ WS_VOLUME_GET.

sibrin

Пономарев Артем написал:

Вместо CL_GUI_FRONTEND_SERVICES=>GET_DRIVE_TYPE можно использовать ФМ WS_VOLUME_GET.

Инетесно, как?
WS_VOLUME_GET возвращает пусто в двух случаях:
1) диска нет;
2) метка диска пуста.

Пономарев Артем

Ну да, есть такое но с пустой меткой.
Однако на корп. машинах ни разу не видел пустых меток

mafioner

Замечательная идея!

Правила форума

Список дисков

Кто сейчас на конференции