VBScript - Zufallsdateiname weicht von Erwartung ab

On Error resume Next

Set myArgs = WScript.Arguments.Unnamed
numFileCount = myArgs.item(0)
strOutputFile = myArgs.item(1)

function dotFinder(strFile)
	Dim strfirstletter
	i = 1
	Do
		strfirstletter = Mid(Right(strFile,i),1,1)
		intCompare = StrComp(strfirstletter, ".", vbTextCompare)  
		If intCompare = 0 Then
			dotFinder = Len(strFile) - i
			Exit Do
			Else
				i = i+1
		End If
	Loop
end function

strQuellordner = "C:\scan-in" & Chr(92)  
strZielordner = Chr(92) & Chr(92) & "sc3\c$\in" & Chr(92)  

abc = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"  
function  convert(n)
	convert = Mid(abc, n, 1)
end function

Function  spaceChecker(strString)
	If InStrRev(strString, " ") > 0 Then  
		spaceChecker = Chr(34) & strString & Chr(34)
	Else
		spaceChecker = strString
	End If
End Function

Do
	Set FSO=CreateObject("Scripting.FileSystemObject")  
	Set fldr= FSO.GetFolder(strQuellordner)
	Set Collec_Files= fldr.Files
	For Each File in Collec_Files
		If Collec_Files.count > 0 then
			strFileName = File.Name
			strQuelldatei = strQuellordner & strFileName
			If FSO.FileExists(strZielordner & strFileName) <> True Then
				intDotPos = dotFinder(strFileName)
				Randomize
				intHighNumber = 26
				intLowNumber = 1
				rletter = Int((intHighNumber - intLowNumber + 1) * Rnd + intLowNumber)
				rconvletter = convert(rletter)
				Randomize
				r = Int(Rnd * 100) + 1
				strZielordner = strZielordner & Left(strFileName, 3) & "-" & rconvletter & r & Right(strFileName, CInt(Len(strFileName) - intDotPos +1))  
				Else
			End If
			FSO.MoveFile strQuelldatei, strZielordner
			strZielordner = Chr(92) & Chr(92) & "sc3\c$\in" & Chr(92)  
		End If
	Next

	Set objFSo = CreateObject("Scripting.FileSystemObject")  
	Set objFolder = objFSo.GetFolder("\\sc3\c$\out\")  
	Set colFiles = objFolder.Files
	For Each objFile In colFiles
		objFile.attributes = 0
		Set objFS = CreateObject("Scripting.FileSystemObject")  
		strMoveQuelle = "\\sc3\c$\out\" & Chr(92) & objFile.Name  
		strMoveZiel = "C:\scan-out\"  
		If objFSo.GetFolder("\\sc3\c$\out\").Files.Count >= 1 Then  
			If objFS.FileExists(strMoveZiel & objFile.Name) <> True Then
				objFS.MoveFile strMoveQuelle, strMoveZiel
			End If
		End if
		Set objFS = Nothing
	Next
	Set objFSo = Nothing
	WScript.Sleep 5000
Loop