VBA - VBS : Umbennen und Verschieben von Dateien in Loop

On Error Resume Next
' Ordner dessen Unterordner der ersten Ebene überprüft werden sollen  
Const FOLDERIN = "C:\DHL"  
'Ordner in den die CSV-Dateien verschoben werden  
Const FOLDEROUT = "C:\DHL"  
'Interval der Überprüfung (in sek.)  
Const INTERVAL = 5
Dim strNewFile, fso, folder, file, intCount
Set fso = CreateObject("Scripting.Filesystemobject")  
While True
	For Each folder In fso.GetFolder(FOLDERIN).SubFolders
		If folder.Files.Count > 0 Then
			For Each file In folder.Files
				If LCase(fso.GetExtensionName(file.Name)) = "csv" Then  
					strNewFile = FOLDEROUT & "\Easylog_" & folder.Name & ".csv"  
					intCount = 1
					While (fso.FileExists(strNewFile))
						strNewFile = FOLDEROUT & "\Easylog_" & folder.Name & "_(" & intCount & ").csv"  
						intCount = intCount + 1
					Wend
					fso.MoveFile file.Path, strNewFile
				End If
			Next
		End If
	Next
	WScript.Sleep(INTERVAL * 1000)
Wend

# Ordner dessen Unterordner auf neue CSV-Dateien überwacht wird
$folderMonitor = 'C:\Mandanten'  
# Ordner in den die unbenannten CSV-Dateien verschoben werden
$global:folderOUT = 'C:\DHL'  
if ((Get-EventSubscriber "CSV_Watcher" -ErrorAction SilentlyContinue)){Unregister-Event "CSV_Watcher"}  
#Filewatcher erstellen
$watcher = New-Object System.IO.FileSystemWatcher $folderMonitor,'*.csv' -Property @{IncludeSubDirectories=$true}  

# Filesystem-Watcher registrieren
Register-ObjectEvent $watcher "Created" -SourceIdentifier "CSV_Watcher" -Action {  
    Try{
        $obj = $Event.SourceEventArgs
        # Mandanten-Ordner extrahieren
        $mandant = $obj.Name.Split("\")  
        # Zieldatei zusammensetzen
        $targetfile = "$($global:folderOUT)\Easylog_$mandant.csv"  
        # Für den Fall das die Zieldatei schon existiert hänge eine Zahl an
        $cnt = 0
        while((Test-Path $targetfile)){
            $cnt++
            $targetfile = "$($global:folderOUT)\Easylog_$($mandant)_($($cnt)).csv"  
        }
        # Verschiebevorgang
        move-item $obj.FullPath $targetfile -Force
        # Console-Logging
        write-host "Verschiebe Datei '$($obj.FullPath)' nach '$targetfile'" -ForegroundColor Green  
    }catch{
        write-host "Fehler: $($_.Exception.Message)" -ForegroundColor Red  
    }
}
cls
write-host "Warte auf neue Dateien ..." -ForegroundColor Yellow  
while($true){sleep(1)}

powershell.exe -ExecutionPolicy ByPass -File C:\csv_monitor.ps1