home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / sharewar / os2 / narzedzi / fm2utils / where.cmd < prev    next >
Encoding:
Text File  |  1995-03-06  |  1.3 KB  |  62 lines
  1. /*
  2.  * A where command for OS/2
  3.  * Finds (a) file(s) on a drive
  4.  * Freeware by M. Kimes
  5.  */
  6.  
  7. '@echo off'
  8. counter = 0
  9. parse arg cl
  10. if cl = '/?' then signal givehelp
  11. if cl = '-?' then signal givehelp
  12. if cl = '' then signal givehelp
  13. parse upper var cl arg1 dummy
  14. if arg1 = '/M' then
  15. do
  16.   more = ''
  17.   parse var cl arg1 cl
  18. end
  19. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  20. call SysLoadFuncs
  21. dummy = charout(,'Working...')
  22. rc = SysFileTree(cl,filename,'S')
  23. dummy = charout(,'0d'x)
  24. if rc = 0 then
  25. do
  26.   if filename.0 \= 0 then
  27.   do
  28.     do i = 1 to filename.0
  29.       say filename.i
  30.       if more \= '' then
  31.       do
  32.         counter = counter + 1
  33.         if counter = 24 then
  34.         do
  35.           if i \= filename.0 then
  36.           do
  37.             dummy = charout(,'[More]')
  38.             dummy = SysGetKey('NOECHO')
  39.             dummy = charout(,'0d'x)
  40.             counter = 0
  41.           end
  42.         end
  43.       end
  44.     end
  45.   end
  46.   else say 'No matching files found.'
  47. end
  48. exit
  49.  
  50. givehelp:
  51. say 'WHERE.CMD'
  52. say ' Finds (a) file(s) on a drive.'
  53. say ''
  54. say ' Usage:  Where [/M] mask'
  55. say ' Where optional /M means "no more prompting."'
  56. say ''
  57. say ' Examples:  WHERE \FM*'
  58. say '            WHERE /M C:\OS2\*.INI'
  59. say ''
  60. say 'Hector wuz here.'
  61. exit
  62.