home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / crystal / crystal.40 / disk1 / crwrenam.inc < prev    next >
Encoding:
Text File  |  1995-03-30  |  5.6 KB  |  90 lines
  1. '
  2. ' File:    crwrenam.inc
  3. '
  4. ' Author:  Greg Hoffenbacker
  5. ' Date:    20 Oct 94
  6. '
  7. ' Purpose: Script include file for CRW Setup.  Contains routine(s) to backup old CRW files.
  8. '
  9. ' Revisions:
  10. '
  11. ' Note: Comments begin with ' or REM.  Metacommands begin with '$.
  12. '
  13.  
  14. '*********************************************************************
  15. ' BackupOldFiles() will rename old CRW files that exist in the TargetDir to
  16. ' *.old and the Windows\System directory to Windows\Crystal\*.old.
  17. ' BackupOldFiles() calls
  18. ' RenameOldFile(SourceDir, filename[.ext], DestinationDir).
  19. '
  20. ' RenameOldFile(SourceDir, filename[.ext], DestinationDir) will search the
  21. ' SourceDir for filename[.ext].
  22. ' If found, filename[.ext] will be changed to DestinationDir\filename.old.
  23. '
  24. ' Wildcard characters "*" and "?" are allowed.
  25. '
  26. ' To edit: simply change the file names, delete existing filename lines, or
  27. ' add new filename lines in the exact form shown below.  Then save.
  28.  
  29. STATIC FUNCTION BackupOldFiles% ()
  30.     nResult% = FALSE%
  31.     szTargetDir$ = TargetDir$
  32.     szWinSysDir$ = GetWindowsSysDir
  33.     szWinCryDir$ = GetWindowsDir + S_CRYSTALDIR$
  34.  
  35.     nResult% = RenameOldFile (szTargetDir$, "crwres.dll",   szTargetDir$) OR nResult%
  36.     nResult% = RenameOldFile (szTargetDir$, "crpe.dll",     szTargetDir$) OR nResult%
  37.     nResult% = RenameOldFile (szTargetDir$, "crole2ui.dll", szTargetDir$) OR nResult%
  38.     nResult% = RenameOldFile (szTargetDir$, "crxlate.dll",  szTargetDir$) OR nResult%
  39.     nResult% = RenameOldFile (szTargetDir$, "p3conv.dll",   szTargetDir$) OR nResult%
  40.     nResult% = RenameOldFile (szTargetDir$, "p3dib.dll",    szTargetDir$) OR nResult%
  41.     nResult% = RenameOldFile (szTargetDir$, "p3file.dll",   szTargetDir$) OR nResult%
  42.     nResult% = RenameOldFile (szTargetDir$, "p3info.dll",   szTargetDir$) OR nResult%
  43.     nResult% = RenameOldFile (szTargetDir$, "pdqqbe.dll",   szTargetDir$) OR nResult%
  44.     nResult% = RenameOldFile (szTargetDir$, "pdbact.dll",   szTargetDir$) OR nResult%
  45.     nResult% = RenameOldFile (szTargetDir$, "pdbbnd.dll",   szTargetDir$) OR nResult%
  46.     nResult% = RenameOldFile (szTargetDir$, "pdbbtrv.dll",  szTargetDir$) OR nResult%
  47.     nResult% = RenameOldFile (szTargetDir$, "pdbpdx.dll",   szTargetDir$) OR nResult%
  48.     nResult% = RenameOldFile (szTargetDir$, "pdbxbse.dll",  szTargetDir$) OR nResult%
  49.     nResult% = RenameOldFile (szTargetDir$, "pdctbtrv.dll", szTargetDir$) OR nResult%
  50.     nResult% = RenameOldFile (szTargetDir$, "pdiract.dll",  szTargetDir$) OR nResult%
  51.     nResult% = RenameOldFile (szTargetDir$, "pdsdb22.dll",  szTargetDir$) OR nResult%
  52.     nResult% = RenameOldFile (szTargetDir$, "pdsgupta.dll", szTargetDir$) OR nResult%
  53.     nResult% = RenameOldFile (szTargetDir$, "pdsnetw.dll",  szTargetDir$) OR nResult%
  54.     nResult% = RenameOldFile (szTargetDir$, "pdsodbc.dll",  szTargetDir$) OR nResult%
  55.     nResult% = RenameOldFile (szTargetDir$, "pdsoracl.dll", szTargetDir$) OR nResult%
  56.     nResult% = RenameOldFile (szTargetDir$, "pdssybas.dll", szTargetDir$) OR nResult%
  57.     nResult% = RenameOldFile (szTargetDir$, "pxengwin.dll", szTargetDir$) OR nResult%
  58.     nResult% = RenameOldFile (szTargetDir$, "ufldts.dll",   szTargetDir$) OR nResult%
  59.     nResult% = RenameOldFile (szTargetDir$, "uflsamp1.dll", szTargetDir$) OR nResult%
  60.     nResult% = RenameOldFile (szTargetDir$, "uxd*.dll",     szTargetDir$) OR nResult%
  61.     nResult% = RenameOldFile (szTargetDir$, "uxf*.dll",     szTargetDir$) OR nResult%
  62.     nResult% = RenameOldFile (szTargetDir$, "wbtrcall.dll", szTargetDir$) OR nResult%
  63.     nResult% = RenameOldFile (szTargetDir$, "wbtrvdef.dll", szTargetDir$) OR nResult%
  64.     nResult% = RenameOldFile (szTargetDir$, "*.xtd",        szTargetDir$) OR nResult%
  65.  
  66.     nResult% = RenameOldFile (szWinSysDir$, "crxlate.dll",  szWinCryDir$) OR nResult%
  67.     nResult% = RenameOldFile (szWinSysDir$, "crole2ui.dll", szWinCryDir$) OR nResult%
  68.     nResult% = RenameOldFile (szWinSysDir$, "pdqqbe.dll",   szWinCryDir$) OR nResult%
  69.     nResult% = RenameOldFile (szWinSysDir$, "pdbact.dll",   szWinCryDir$) OR nResult%
  70.     nResult% = RenameOldFile (szWinSysDir$, "pdbbnd.dll",   szWinCryDir$) OR nResult%
  71.     nResult% = RenameOldFile (szWinSysDir$, "pdbbtrv.dll",  szWinCryDir$) OR nResult%
  72.     nResult% = RenameOldFile (szWinSysDir$, "pdbpdx.dll",   szWinCryDir$) OR nResult%
  73.     nResult% = RenameOldFile (szWinSysDir$, "pdbxbse.dll",  szWinCryDir$) OR nResult%
  74.     nResult% = RenameOldFile (szWinSysDir$, "pdctbtrv.dll", szWinCryDir$) OR nResult%
  75.     nResult% = RenameOldFile (szWinSysDir$, "pdiract.dll",  szWinCryDir$) OR nResult%
  76.     nResult% = RenameOldFile (szWinSysDir$, "pdsdb22.dll",  szWinCryDir$) OR nResult%
  77.     nResult% = RenameOldFile (szWinSysDir$, "pdsgupta.dll", szWinCryDir$) OR nResult%
  78.     nResult% = RenameOldFile (szWinSysDir$, "pdsnetw.dll",  szWinCryDir$) OR nResult%
  79.     nResult% = RenameOldFile (szWinSysDir$, "pdsodbc.dll",  szWinCryDir$) OR nResult%
  80.     nResult% = RenameOldFile (szWinSysDir$, "pdsoracl.dll", szWinCryDir$) OR nResult%
  81.     nResult% = RenameOldFile (szWinSysDir$, "pdssybas.dll", szWinCryDir$) OR nResult%
  82.     nResult% = RenameOldFile (szWinSysDir$, "ufldts.dll",   szWinCryDir$) OR nResult%
  83.     nResult% = RenameOldFile (szWinSysDir$, "uflsamp1.dll", szWinCryDir$) OR nResult%
  84.     nResult% = RenameOldFile (szWinSysDir$, "uxd*.dll",     szWinCryDir$) OR nResult%
  85.     nResult% = RenameOldFile (szWinSysDir$, "uxf*.dll",     szWinCryDir$) OR nResult%
  86.     nResult% = RenameOldFile (szWinSysDir$, "*.xtd",        szWinCryDir$) OR nResult%
  87.                                                             
  88.     BackupOldFiles = nResult%
  89. END FUNCTION
  90.