home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / fnkst221.zip / find-dll.cmd < prev    next >
OS/2 REXX Batch file  |  1996-09-16  |  2KB  |  84 lines
  1. /* Kontrolle, ob die benoetigten DLL's fuer SlipLog */
  2. /* vorhanden sind */ 
  3.  
  4. call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
  5. call SysLoadFuncs
  6.  
  7. cls
  8. say
  9. say
  10. say "Ich durchsuche jetzt alle Laufwerke! bitte warten...!"
  11. z=0
  12. tempfile = "leider nichts"
  13.  
  14. drives=SysDriveMap(,local)
  15.  
  16. DO FOREVER
  17.    z=z+1
  18.    drive.z= LEFT(drives,2)
  19.    info_lw=SysDriveInfo(drive.z)
  20.    PARSE VAR info_lw drv frei gesamt label
  21.    IF (info_lw = "") | (frei = 0) then  /* CD-ROM LW ?*/
  22.         z = z -1
  23.    IF LENGTH(drives) = 2 THEN           /* letztes LW */
  24.       DO
  25.          drive.0=z
  26.          LEAVE
  27.       END
  28.    drives=RIGHT(drives,(LENGTH(drives)-3))
  29. END
  30.  
  31. DO z=1 to drive.0
  32.    call SysFileTree drive.z||"dde4mui.dll", "files."||z||".", "FSO"
  33. END
  34.  
  35. DO z=1 to drive.0
  36.   DO i=1 to files.z.0
  37.      PARSE VAR files.z.i tempfile
  38.   END
  39. END
  40.  
  41. say
  42. say "Ich habe "||tempfile||" gefunden."
  43. IF tempfile="leider nichts" then
  44.         say "Du musst dir noch die Datei DDE4MUI.DLL besorgen."
  45. else
  46.         say "Steht dieser Path auch im Lib-Path?"
  47.  
  48. tempfile="leider nichts"
  49. DO z=1 to drive.0
  50.    call SysFileTree drive.z||"dde4cc.dll", "files."||z||".", "FSO"
  51. END
  52.  
  53. DO z=1 to drive.0
  54.   DO i=1 to files.z.0
  55.      PARSE VAR files.z.i tempfile
  56.   END
  57. END
  58.  
  59. say "Ich habe "||tempfile||" gefunden."
  60. IF tempfile="leider nichts" then
  61.         say "Du musst dir noch die Datei DDE4CC.DLL besorgen."
  62. else
  63.         say "Steht dieser Path auch im Lib-Path?"
  64.  
  65. tempfile="leider nichts"
  66. DO z=1 to drive.0
  67.    call SysFileTree drive.z||"dde4mbs.dll", "files."||z||".", "FSO"
  68. END
  69.  
  70. DO z=1 to drive.0
  71.   DO i=1 to files.z.0
  72.      PARSE VAR files.z.i tempfile
  73.   END
  74. END
  75.  
  76. say "Ich habe "||tempfile||" gefunden."
  77. IF tempfile="leider nichts" then
  78.         say "Du musst dir noch die Datei DDE4MBS.DLL besorgen."
  79. else
  80.         say "Steht dieser Path auch im Lib-Path?"
  81.  
  82. say
  83. exit
  84.