wizhook_nazo

public function filename_save(ByRef hWndOwner_lng as long,
			      ByVal initialdir_str as string) as string
			      
		const enable_wizhook = 51488399
		const disable_wizhook = 0
		
		dim file_str as string
		dim result_lng as long
		
		on error goto err_exit
		
		wizhook.key = enable_wizhook	'wizhookを有効に
		result_lng = wizhook.getfilename(_
						hWndOwner_lng, _
						"サンプルシステム", _
						"ファイルを保存します", _
						"", _
						file_str, _
						initialdir_str, _
						"Microsoft Excel (*.xls)|*.xls", _
						0, _
						0, _
						0, _
						0, _
						)
		wizhook.key = disable_wizhook	'wizhookを無効に
		filename_save = file_str
		
		exit function