43 lines
1.3 KiB
Batchfile
43 lines
1.3 KiB
Batchfile
|
|
Rem
|
|
Rem Create directories for application specific data in the
|
|
Rem user's home directory.
|
|
Rem
|
|
|
|
call TsMkUDir "%RootDrive%\Office97"
|
|
call TsMkUDir "%RootDrive%\Office97\Templates"
|
|
call TsMkUDir "%RootDrive%\%MY_DOCUMENTS%"
|
|
call TsMkUDir "%RootDrive%\Office97\XLStart"
|
|
|
|
Rem
|
|
Rem copy this file from the all users templates to the current user templates location
|
|
Rem
|
|
|
|
|
|
If Exist "%UserProfile%\%TEMPLATES%\EXCEL8.XLS" Goto Skip0
|
|
If Exist "%ALLUSERSPROFILE%\%TEMPLATES%\EXCEL8.XLS" copy "%ALLUSERSPROFILE%\%TEMPLATES%\EXCEL8.XLS" "%UserProfile%\%TEMPLATES%\" /Y >Nul: 2>&1
|
|
|
|
:Skip0
|
|
Rem
|
|
Rem Copy the ARTGALRY.CAG to user's windows directory
|
|
Rem
|
|
|
|
If Exist "%RootDrive%\Windows\ArtGalry.Cag" Goto Skip1
|
|
If Not Exist "%SystemRoot%\ArtGalry.Cag" Goto Skip1
|
|
copy "%SystemRoot%\ArtGalry.Cag" "%RootDrive%\Windows\ArtGalry.Cag" >Nul: 2>&1
|
|
:Skip1
|
|
|
|
Rem
|
|
Rem Copy Custom.dic file to user's directory
|
|
Rem
|
|
|
|
If Exist "%RootDrive%\Office97\Custom.Dic" Goto Skip2
|
|
If Not Exist "#INSTDIR#\Office\Custom.Dic" Goto Skip2
|
|
copy "#INSTDIR#\Office\Custom.Dic" "%RootDrive%\Office97\Custom.Dic" >Nul: 2>&1
|
|
:Skip2
|
|
|
|
If Exist "%RootDrive%\Office97\XL8GALRY.XLS" Goto Skip3
|
|
If Not Exist "#INSTDIR#\Office\XL8GALRY.XLS" Goto Skip3
|
|
Copy "#INSTDIR#\Office\XL8GALRY.XLS" "%RootDrive%\Office97\XL8GALRY.XLS" >Nul: 2>&1
|
|
:Skip3
|