Set objFolder = Fso.GetFolder( WshShell.CurrentDirectory )
Set objFiles = objFolder.Files

strTargetName = "i-seifu.jp-access_log"

For each objFile in objFiles
	if Fso.GetBaseName( objFile.Name ) = strTargetName then
		' ログファイルをコピー
		Call Fso.CopyFile( objFile.Name, "access.log" )
		' 拡張子.zip に access.log をカタログ
		strCommand = "zip.exe -j "
		strCommand = strCommand & Fso.GetExtensionName( objFile.Name )
		strCommand = strCommand & " access.log"
		Call WshShell.Run( strCommand, 0, True )
	end if
Next