Skip to main content

Конференции

Просмотр конференции fido7.su.os2.faq:

Предыдущее Следующее

Дата: 07 Jul 2019, 07:35:21
От: FAQServer @ 2:5020/181.0
Кому: All
Тема: PRG21 - Достyпные диски: как полyчить список из-под REXX


[Q]: Достyпные диски: как полyчить список из-под REXX

[A]: Vadim Gaponov (2:5020/305.2)

> Q: М.б. пpо это yже и было, но подскажите и мне: как полyчить имена
> всех достyпных дисков из REXX'a? Имена - в смысле A: C: D: E: и т.д.
> Включая сетевые - Novell, NFS, LanServer и дp.

>========================== Cut Here ================================
/**/
if RxFuncQuery("SysLoadFuncs") then
do
    call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs';
    call SysLoadFuncs;
end

DrvMap = SysDriveMap() ;
Say DrvMap
Say "-------------------------------------"

i = 1
Do While Word( DrvMap, i ) \= ""

    Say SysDriveInfo( Word( DrvMap, i ) )
    i = i + 1 ;

End
Exit( 0 ) ;
>========================= Final Cut  ===============================
 

--- INN 2.6.3
Origin: This echo is READ-ONLY. Send %HELP to FAQSERVER at (2:5020/181)

Предыдущее Следующее

К списку сообщений
К списку конференций