VB-Scribt zum Verschieben von Daten

'*******************************************************  
' WSH - VBSkript: move_file.vbs  
'  - verschiebt Dateien von einem festgelegten Quell-   
'    in einen festgelegten Zielordner  
'  - falls im Zielordner eine Datei vorhanden ist wird  
'    diese nicht verschoben  
'*******************************************************  
 
Option Explicit
Dim fso, oFile, oFiles, oFolder
Dim sQuelle, sZiel, sMsg
 
On Error Resume Next
 
Set fso = CreateObject("Scripting.FileSystemObject")  
Set oFolder = fso.GetFolder("C:\bilder")  
Set oFiles = oFolder.Files
 
sZiel = "C:\sammlung\"  
 
For Each oFile In oFiles
 sQuelle = fso.GetAbsolutePathName(oFile)
 fso.MoveFile sQuelle, sZiel
 
 If Err.Number <> 0 Then
  sMsg = Err.Description
 
  Select Case Err.Number
   Case 58
    sMsg = sMsg & vbCrlf & vbCrlf & sQuelle
   Case 76
    sMsg = sMsg & vbCrlf & vbCrlf & sZiel
   Case Else
    sMsg = sMsg
  End Select
 
  MsgBox sMsg, 48, "Fehler!"  
  Err.Clear
 End If
Next
 
MsgBox "Ende", 64, "Info"