Dateien nach Monaten in Ordner verschieben

If WScript.Arguments.Count > 2 Then
  Set objFSO         = CreateObject("Scripting.FileSystemObject")  
  Set objSrcDir      = objFSO.GetFolder(WScript.Arguments(1))
  Set colAllFiles    = objSrcDir.Files

  For Each objFile In colAllFiles
    If objFSO.GetExtensionName(objFile.Name) = WScript.Arguments(0) Then
      strFolderName = Right("0" & Month(objFile.DateCreated), 2) & Right(Year(objFile.DateCreated), 2)  

      strDestFolder = objFSO.BuildPath(WScript.Arguments(2), strFolderName)

      If Not objFSO.FolderExists(strDestFolder) Then
        objFSO.CreateFolder(strDestFolder)
      End If

      objFile.Move objFSO.BuildPath(strDestFolder, objFile.Name)
    End If
  Next
End If

cscript /nologo MoveFilesByDate.vbs "Dateityp, z.B. 000" "Quellverzeichnis" "Zielverzeichnis"

@Echo off
for %%a in (*.000) do (
	if NOT "%%a"=="builder.bat" (  
		if NOT "%%a"=="worker.bat" (  
			Echo.
			Echo Verarbeite Datei %%a
			Echo.
			Echo ________________________________
			Echo.
			call worker.bat "%%a"  
		)
	)
)

@Echo off
set file=%1
set fdate=%~t1
set fmonth=%fdate:~3,2%
set fyear=%fdate:~6,4%
set folname=%fyear%_%fmonth%
:work
if exist %folname%\NUL (
	Echo Verschiebe Datei %file% nach %folname%
	Echo ----
	move %file% "%folname%\"%file%   
) else (
	Echo Erstelle Verzeichnis %folname%
	Echo ----
	md "%folname%"  
	goto work
)

@Echo off
set file=%1
set fdate=%~t1
set fmonth=%fdate:~3,2%
set fyear=%fdate:~6,4%
set folname=%fyear%_%fmonth%
set f
Echo %date% %time%