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

str = "À̸§º¯°æµÈ ÆÄÀÏ" & vbCrlf

For Each f1 In dir.Files
	fName = Mid(f1.Name, 1, InstrRev(f1.Name,".")-1)
	fExt = Mid(f1.Name, InstrRev(f1.Name,".")+1)
	If( fExt = "svi" ) Then
		str = str & fName & vbCrlf
		fso.MoveFile f1.Name, fName&".avi"
	End If
Next

MsgBox str