home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / BKUPINI.ZIP / DIRS2LST.C < prev    next >
Text File  |  1990-05-20  |  1KB  |  32 lines
  1.        
  2. #define  EXTERN extern
  3. #include "INIPGMS.h"
  4.  
  5. int DirList2DlgBox( hWndDlg, ID_List )
  6.     HWND hWndDlg ;
  7.     USHORT ID_List ;
  8.     {
  9.      CHAR           buffer[80] ;
  10.      FILEFINDBUF findbuf ;
  11.      HDIR        hDir = 1 ;
  12.      USHORT      usSearchCount = 1 ;
  13.  
  14.      WinSendDlgItemMsg (hWndDlg, ID_List, LM_DELETEALL, NULL, NULL) ;
  15.      if( DosFindFirst ("*.*", &hDir, 0x0017, &findbuf, sizeof findbuf, &usSearchCount, 0L) )
  16.          return( -1 );
  17.      while(usSearchCount)
  18.        {
  19.         if( findbuf.attrFile & 0x0010 &&  (findbuf.achName[0] != '.' || findbuf.achName[1]) )
  20.            {
  21.             sprintf(buffer,"[%s]",findbuf.achName);
  22.             WinSendDlgItemMsg(hWndDlg, ID_List, LM_INSERTITEM,
  23.                                MPFROM2SHORT (LIT_SORTASCENDING, 0),
  24.                                MPFROMP (buffer)) ;
  25.            }
  26.           DosFindNext (hDir, &findbuf, sizeof findbuf, &usSearchCount) ;
  27.         }
  28.      DosFindClose( hDir ) ;
  29.      return( 0 ) ;
  30.      }                       /*     End of  DirList2DlgBox             */
  31.  
  32.