//	M063 : wtH_̃t@C
option unsigned;

define	count = 0;

//------------------------------------------------------------------------------//
//	wtH_̃t@C												//
//																				//
//	߂l	F	Ȃ															//
//------------------------------------------------------------------------------//
function main()
{
	define	port = 3;
	define	i, j, n;
	define	count;
	define	$folder;
	define	$wilds;
	define	$WildArr;
	define	$files;

	_Cls();
	_Print("w肵tH_AChJ[hŎw肵t@C܂B\n");
	_Print("́AĂtH_\܂B\n\n");

	//	vt@CA̓t@Cƌǂݏo
	$folder = $_GetProfileStr("folder", "c:\\");
	$wilds	= $_GetProfileStr("wilds" , ";");

	do {
		if (($folder = $_GetFolder("tH_IĂ", $folder, $folder))						 == 0) break;
		if (($wilds  = $_Input("郏ChJ[h͂Ăi̓Z~R(;)ŋ؂j", $wilds)) == 0) break;
		//	ChJ[hݒ肵At@C
		$WildArr[] = $_StrSplit($wilds, ";");					//	Z~R(;)ŋ؂̔z쐬
		$_StrTrim($WildArr[]);									//	z̑SvfAŐ󔒂
		$files[]   = $_SearchFiles($folder, 1, $WildArr[]);		//	t@C
		_Print("\n");											//	s
		//	t@C\
		n = _Elements($files[]);								//	n=z̗vf
		for (i = 0; i < n; i++) {								//	z̓eit@CQj\
			_Pd(i + 1, 5); _Print("  - ", $files[i], "\n");		//	E
		}
	}

	//	vt@CցAtH_ƃChJ[hL^
	if ($folder != "") _SetProfileStr("folder", $folder);
	if ($wilds	!= "") _SetProfileStr("wilds" , $wilds);

}
//------------------------------------------------------------------------------//
//	̃tH_EpXʒmCxg										//
//------------------------------------------------------------------------------//
function _OnFileSearch($folder)
{
	define rc;

	count++;

	_Print("\r\x1B[2K");
	_Print(count, ": ", $folder);

	return _TRUE;	//	_TRUE:pC_FALSE:~
}

