set Root to (choose folder with prompt "Choose PCD Image folder :") as string

tell application "ファイルメーカー Pro"
	activate
	tell database "ANT PCD DATA"
		if (enabled of (menu item 1 of menu 5 of application "ファイルメーカー Pro")) then
			do menu (menu item 1 of menu 5 of application "ファイルメーカー Pro")
		end if
		set CountRecord to count of record
		repeat with c from 1 to CountRecord
			go to record c of current layout
			set myContents to (get data cell "HTML_Page" of record c) as text
			set PDisc to (get data cell "PCD Name" of record c) as string
			set PFrame to get data cell "画像番号" of record c
			set HTMLfName to (PDisc & "-" & PFrame & ".html") as string
			my MakeFile(Root, HTMLfName, myContents)
		end repeat
	end tell
end tell

on MakeFile(HTMLfPath, HTMLfName, myContents)
	set MyFullName to HTMLfPath & HTMLfName as string
	try
		create file HTMLfName in alias HTMLfPath
	on error
		delete file alias MyFullName
		create file HTMLfName in alias HTMLfPath
	end try
	set MyFile to open file alias MyFullName for writing
	write file MyFile text myContents
	close file MyFile
end MakeFile