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

  • PRG21 - ����y��� ��᪨: ��� ���y��� ᯨ᮪ ��-��� REXX

    From FAQServer@2:5020/181 to All on Sun Jun 22 07:37:10 2025
    [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
    * Origin: This echo is READ-ONLY. Send %HELP to FAQSERVER at (2:5020/181)