[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 (20240212 prerelease)
* Origin: This echo is READ-ONLY. Send %HELP to FAQSERVER at (2:5020/181)