36 lines
1.1 KiB
Batchfile
36 lines
1.1 KiB
Batchfile
|
|
|||
|
|
Rem
|
|||
|
|
Rem <20><><EFBFBD>[<5B>U<EFBFBD>[<5B>̃z<CC83>[<5B><> <20>f<EFBFBD>B<EFBFBD><42><EFBFBD>N<EFBFBD>g<EFBFBD><67><EFBFBD>ɃA<C983>v<EFBFBD><76><EFBFBD>P<EFBFBD>[<5B>V<EFBFBD><56><EFBFBD><EFBFBD><EFBFBD>ŗL<C597>̃f<CC83>[<5B>^
|
|||
|
|
Rem <20>̃f<CC83>B<EFBFBD><42><EFBFBD>N<EFBFBD>g<EFBFBD><67><EFBFBD><EFBFBD><EFBFBD>쐬<EFBFBD><EC90AC><EFBFBD>܂<EFBFBD><DC82>B
|
|||
|
|
Rem
|
|||
|
|
|
|||
|
|
call TsMkUDir "%RootDrive%\Office97"
|
|||
|
|
call TsMkUDir "%RootDrive%\Office97\Templates"
|
|||
|
|
call TsMkUDir "%RootDrive%\%MY_DOCUMENTS%"
|
|||
|
|
call TsMkUDir "%RootDrive%\Office97\XLStart"
|
|||
|
|
|
|||
|
|
Rem
|
|||
|
|
Rem <20><><EFBFBD>̃t<CC83>@<40>C<EFBFBD><43><EFBFBD><EFBFBD><EFBFBD>A<EFBFBD><41><EFBFBD>ׂẴ<C482><CC83>[<5B>U<EFBFBD>[<5B>p<EFBFBD>̃e<CC83><65><EFBFBD>v<EFBFBD><76><EFBFBD>[<5B>g<EFBFBD><67><EFBFBD>猻<EFBFBD>݂̃<DD82><CC83>[<5B>U<EFBFBD>[<5B>̃e<CC83><65><EFBFBD>v<EFBFBD><76><EFBFBD>[<5B>g<EFBFBD>̏ꏊ<CC8F>ɃR<C983>s<EFBFBD>[<5B><><EFBFBD>܂<EFBFBD><DC82>B
|
|||
|
|
Rem
|
|||
|
|
|
|||
|
|
If Not Exist "%UserProfile%\%TEMPLATES%\EXCEL8.XLS" copy "%ALLUSERSPROFILE%\%TEMPLATES%\EXCEL8.XLS" "%UserProfile%\%TEMPLATES%\" /Y >Nul: 2>&1
|
|||
|
|
|
|||
|
|
Rem
|
|||
|
|
Rem ARTGALRY.CAG <20><><EFBFBD><EFBFBD><EFBFBD>[<5B>U<EFBFBD>[<5B><> Windows <20>f<EFBFBD>B<EFBFBD><42><EFBFBD>N<EFBFBD>g<EFBFBD><67><EFBFBD>ɃR<C983>s<EFBFBD>[<5B><><EFBFBD>܂<EFBFBD><DC82>B
|
|||
|
|
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 <20>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>[<5B>U<EFBFBD>[<5B>̃f<CC83>B<EFBFBD><42><EFBFBD>N<EFBFBD>g<EFBFBD><67><EFBFBD>ɃR<C983>s<EFBFBD>[<5B><><EFBFBD>܂<EFBFBD><DC82>B
|
|||
|
|
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
|
|||
|
|
|