[amel27]

ultra_fs, в такой вольной формулировке не имея диска никто не сможет помочь

[vitaliyboch]

Навервно запрашивался такой скрипт:

Код:

set oFSO = CreateObject("Scripting.Filesystemobject")

Call ProcessFolder("F:\")

Sub ProcessFolder(sFolderPath)
	set oFolder = oFSO.GetFolder(sFolderPath)
	set colFiles = oFolder.Files
	for each oFile in colFiles
		If InStr(LCase(oFile.Path),"-ru")>0 Then
			If InStr(LCase(oFile.Path),"-x86")>0 Then
				Call oFSO.CopyFile(oFile.Path,"C:\RU_x86\" & oFile.Name, True)
			ElseIf InStr(LCase(oFile.Path),"-x64")>0 Then
				Call oFSO.CopyFile(oFile.Path,"C:\RU_x64\" & oFile.Name, True)
			End if
		ElseIf InStr(LCase(oFile.Path),"-en")>0 Then
			If InStr(LCase(oFile.Path),"-x86")>0 Then
				Call oFSO.CopyFile(oFile.Path,"C:\EN_x86\" & oFile.Name, True)
			ElseIf InStr(LCase(oFile.Path),"-x64")>0 Then
				Call oFSO.CopyFile(oFile.Path,"C:\EN_x64\" & oFile.Name, True)
			End if
		ElseIf InStr(LCase(oFile.Path),"-fr")>0 Then
			If InStr(LCase(oFile.Path),"-x86")>0 Then
				Call oFSO.CopyFile(oFile.Path,"C:\FR_x86\" & oFile.Name, True)
			ElseIf InStr(LCase(oFile.Path),"-x64")>0 Then
				Call oFSO.CopyFile(oFile.Path,"C:\FR_x64\" & oFile.Name, True)
			End if
		End If
	next
	set colSubFolders = oFolder.SubFolders
	for each oSubFolder in colSubFolders
		ProcessFolder(oSubFolder.Path)
	next
end sub

только добавьте условия по языкам и платформам и верную структуру папок, куда копировать файлы.