Ordnerinhalte verschieben

@echo off
set "BaseDir=K:\ARCHIV\ekp_kd"  
for /f "delims=" %%i in ('dir "%BaseDir%\failed\2007*.*" /b /ad') do (  
    echo move /y "%BaseDir%\failed\%%i\a00*.*" "%BaseDir%\failed"  
    echo rd /q /s "%BaseDir%\failed\%%i"  
)

'Bestimmte Dateien in einem Verzeichnis kopieren  
'Verzeichnis danach löschen  
'24.01.07/ge  

Option explicit

const C_Quelle = "c:\temp\"  
const C_Ziel = "c:\temp\failed\"  
Const C_Search = "datei"  
Const C_Except_Dir = "failed"  

Dim O_FSO
Set O_FSO = CreateObject("Scripting.FileSystemObject")  

Call S_ListOrdner

Sub S_ListOrdner
	Dim O_Ordner, O_Ordners
	Set O_Ordners = O_FSO.GetFolder(C_Quelle)
	
	For each O_Ordner in O_Ordners.subfolders
		If O_Ordner.Name <> C_Except_Dir Then
			Call S_Ordner(O_Ordner.Path,O_Ordner.Name)
			wscript.sleep 500
			Call S_DeleteDir (O_Ordner.Path)
		End If
	Next
End Sub

Sub S_Ordner(P_Dir,P_Ordner)
	Dim O_Datei, O_Dir
	Set O_Dir = O_FSO.GetFolder(P_Dir)
	
	For each O_Datei in O_Dir.files
		If InStr(O_Datei.Name,C_Search) >= 1 Then
			Call S_Copy(O_Datei.Path,P_Ordner)
		End If
	Next
End Sub

Sub S_Copy(P_Datei,P_Ordner)
	If Not O_FSO.FolderExists(C_Ziel & "\" & P_Ordner) Then  
		O_FSO.CreateFolder C_Ziel & "\" & P_Ordner  
	End If
	O_FSO.CopyFile P_Datei,C_Ziel & P_Ordner & "\",true  
End Sub

Sub S_DeleteDir(P_Dir)
	O_FSO.DeleteFolder P_Dir
End Sub