[amel27]

Обьясните ламеру что не так »

это лишь кусок скрипта, в котором отсутствует определение ф-ции GoSubFolder

Вообще задача такая есть папка с кучей подпапок и файлов, необходимо из всего этого мусора отобрать файлы по расширению(ям), собрать их в одном месте »

где-то так:

Код:

Set oFSO = CreateObject("Scripting.FileSystemObject")
MoveByExt "d:\temp1", "d:\temp", "mp3"

Sub MoveByExt(sDirFrom, sDirTo, sFileExt)
  Dim oS, cS, oD, sD, oI, cF
  If Not oFSO.FolderExists(sDirTo) Then oFSO.CreateFolder(sDirTo)

  Set oS = oFSO.GetFolder(sDirFrom)
  Set oD = oFSO.GetFolder(sDirTo)
  Set cS = oS.SubFolders

  On Error Resume Next
  For Each oI In cS
    MoveByExt oI.Path, sDirTo, sFileExt
  Next

  Set cF = oS.Files
  For Each oI In cF
    If StrComp(oFSO.GetExtensionName(oI.Path),sFileExt,1)=0 Then oI.Move(oD.Path &"\")
  Next
End Sub

З.Ы. из множества одноименных файлов будет перенесен только первый