strPath = "."
Set fso = CreateObject("Scripting.FileSystemObject")
Set dir = fso.GetFolder(strPath)

For Each d In dir.SubFolders
	'If ( IsNumeric(d.name) And d.name="04" ) Then 
	If ( IsNumeric(d.name) ) Then 
		str = "À̸§º¯°æµÈ ÆÄÀÏ" & vbCrLf
		Set subdir = fso.GetFolder(d.name)
		For Each sd In subdir.Files
			If( Mid(sd.name, 1, 2) = d.name ) Then
				
				htmlName = Mid(sd.Name, 1, InstrRev(sd.Name,".")-1)
				htmlNum = Right(htmlName, 2)
				
				'MsgBox Mid(sd.name, 1, 2) & " / " & htmlName & " / " & htmlNum

				Set subsubdir = fso.GetFolder(d.name & "/swf")
				For Each flash In subsubdir.Files
					fName = Mid(flash.Name, 1, InstrRev(flash.Name,".")-1)
					fNum = Right(fName, 2)
					fExt = Mid(flash.Name, InstrRev(flash.Name,".")+1)
					If( fNum = htmlNum And ( fExt = "fla" Or fExt = "swf" ) ) Then
						fso.CopyFile d.name&"/swf/"&flash.Name, d.name&"/swf/"&htmlName&"."&fExt
						'MsgBox sd.Name & " => " & htmlName&"."&fExt
						str = str & flash.Name & " => " & htmlName&"."&fExt & vbCrlf
					End If					
				Next
			End If
		Next
		MsgBox str
	End If
Next