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.
35 lines
991 B
35 lines
991 B
|
|
Rem
|
|
Rem 建立目錄，用來放置使用者主目錄中的指定應用
|
|
Rem 程式資料。
|
|
Rem
|
|
|
|
call TsMkUDir "%RootDrive%\Office97"
|
|
call TsMkUDir "%RootDrive%\Office97\Templates"
|
|
call TsMkUDir "%RootDrive%\%MY_DOCUMENTS%"
|
|
call TsMkUDir "%RootDrive%\Office97\XLStart"
|
|
|
|
Rem
|
|
Rem 將這個檔案從所有使用者範本中複製到目前使用者範本所在位置。
|
|
Rem
|
|
|
|
If Not Exist "%UserProfile%\%TEMPLATES%\EXCEL8.XLS" copy "%ALLUSERSPROFILE%\%TEMPLATES%\EXCEL8.XLS" "%UserProfile%\%TEMPLATES%\" /Y >Nul: 2>&1
|
|
|
|
Rem
|
|
Rem 將 ARTGALRY.CAG 複製到使用者的 windows 目錄
|
|
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 將 Custom.dic 檔案複製到使用者目錄
|
|
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
|
|
|