REM ******************************************************
REM 指定ディレクトリ下にある .reg を全て結合して
REM 一つの .reg ファイルにする
REM ******************************************************
Function JoinRegfile( strTarget, strPath )

	Dim objFolder,colFiles,objFile,aData,strData,strOut

	GetFso

	Set objFolder = Fso.GetFolder( strTarget )

	Set colFiles = objFolder.Files

	strOut = ""

	For Each objFile In colFiles
		aData = Split( objFile.Name, "." )
		strData = Ucase( aData( Ubound(aData) ) )
		if strData = "REG" then
			strData = GetTextFileUnicode( objFile.Path )
			if strOut <> "" then
				aData = Split( strData, vbCrLf )
				aData( 0 ) = ""
				strData = Join( aData, vbCrLf )
			end if
			strOut = strOut & strData
		end if
	Next

	Call PutTextFileUnicode( strPath, strOut )

End Function