1. Forum
  2. FidoNet Russia
  3. SU.OS2.FAQ

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

    From FAQServer@2:5020/181 to All on Fri Dec 13 07:37:09 2024
    [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.3 (20241006 prerelease)
    * Origin: This echo is READ-ONLY. Send %HELP to FAQSERVER at (2:5020/181)