Source code of Windows XP (NT5)
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

42 lines
1.3 KiB

  1. Rem
  2. Rem Create directories for application specific data in the
  3. Rem user's home directory.
  4. Rem
  5. call TsMkUDir "%RootDrive%\Office97"
  6. call TsMkUDir "%RootDrive%\Office97\Templates"
  7. call TsMkUDir "%RootDrive%\%MY_DOCUMENTS%"
  8. call TsMkUDir "%RootDrive%\Office97\XLStart"
  9. Rem
  10. Rem copy this file from the all users templates to the current user templates location
  11. Rem
  12. If Exist "%UserProfile%\%TEMPLATES%\EXCEL8.XLS" Goto Skip0
  13. If Exist "%ALLUSERSPROFILE%\%TEMPLATES%\EXCEL8.XLS" copy "%ALLUSERSPROFILE%\%TEMPLATES%\EXCEL8.XLS" "%UserProfile%\%TEMPLATES%\" /Y >Nul: 2>&1
  14. :Skip0
  15. Rem
  16. Rem Copy the ARTGALRY.CAG to user's windows directory
  17. Rem
  18. If Exist "%RootDrive%\Windows\ArtGalry.Cag" Goto Skip1
  19. If Not Exist "%SystemRoot%\ArtGalry.Cag" Goto Skip1
  20. copy "%SystemRoot%\ArtGalry.Cag" "%RootDrive%\Windows\ArtGalry.Cag" >Nul: 2>&1
  21. :Skip1
  22. Rem
  23. Rem Copy Custom.dic file to user's directory
  24. Rem
  25. If Exist "%RootDrive%\Office97\Custom.Dic" Goto Skip2
  26. If Not Exist "#INSTDIR#\Office\Custom.Dic" Goto Skip2
  27. copy "#INSTDIR#\Office\Custom.Dic" "%RootDrive%\Office97\Custom.Dic" >Nul: 2>&1
  28. :Skip2
  29. If Exist "%RootDrive%\Office97\XL8GALRY.XLS" Goto Skip3
  30. If Not Exist "#INSTDIR#\Office\XL8GALRY.XLS" Goto Skip3
  31. Copy "#INSTDIR#\Office\XL8GALRY.XLS" "%RootDrive%\Office97\XL8GALRY.XLS" >Nul: 2>&1
  32. :Skip3