Nп/п : 86 из 101
От : FAQServer 2:5020/181 09 сен 24 07:37:07
К : All 09 сен 24 07:48:01
Тема : PRG21 - Достyпные диски: как полyчить список из-под REXX
----------------------------------------------------------------------------------
@MSGID: 2:5020/181 596ace2d
@RFC-Message-ID: 1@mhm.com.lan>
@TZUTC: 0300
[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.7.2
* Origin: This echo is READ-ONLY. Send %HELP to FAQSERVER at (2:5020/181)
SEEN-BY: 4500/1 5001/100 5019/40 5020/77 81 181
545 848 1042 1941 1955 4441
SEEN-BY: 5020/8086 12000 5030/1081 1900 5060/900
5097/31 6090/1
@PATH: 5020/181 12000 4441