-- 
-- update OB essays  by Makoto Hiroshige  2003.01.05
--
tell application "Finder"
	display dialog "OB会通信のエッセイの html ファイルを更新します。" & return & ﾂ
		"書類フォルダの MusicOffice:Huso-OB:InputTextsSjis 内に sjis コード、改行は LF でエッセイファイルを用意して下さい。"
	set cmdDir to "/Users/user/Documents/MusicOffice/Huso-OB/EssayBin/"
	do shell script "cd " & cmdDir & "; csh Makethem"
	set sourcedir to folder "EssayHtmls" of folder "Huso-OB" of ﾂ
		folder "MusicOffice" of folder "Documents" of home
	set targetdir to folder "Essay" of folder ﾂ
		"Huso-OB" of folder "Huso-OB HP folder" of folder ﾂ
		"HP 関係" of folder "Documents" of home
	set htmlFiles to files of sourcedir ﾂ
		whose its name ends with ".htm"
	move htmlFiles to targetdir with replacing
	open file "essay-idx.htm" of targetdir
end tell