Set WshShell = CreateObject("Wscript.Shell")
Pfad = WshShell.CurrentDirectory
If Right(Pfad,1)<>"\" then Pfad = Pfad & "\"
 
Set FSO=CreateObject("Scripting.FileSystemObject")
Set Folder=FSO.GetFolder(Pfad)
 
For Each File in Folder.Files
   If Right(File,3) <> "vbs" Then
      x = Split(File,"_")
      x(0)= x(1) & "\" & x(2)
      If FSO.FolderExists(x(1)) = False Then
         FSO.CreateFolder(x(1))
      End If
      FSO.CopyFile File,x(0)
   End If
Next