VBS .bmp Datei verschieben

Hallo Zusammen

voraussetzung Touchpanel mit Windos CE , Storage Crad MMC, VBS Script.

ich habe eine Frage ich will alle datei mit dem exstension \*.bmp die in der RAM sind in eine
\Storage Card MC\Archiv verschieben.

Meine Programm:

Option Explicit

Dim fso, oFile, oFiles, oFolder
Dim sQuelle, sZiel, sMsg
Dim sSearchBMP
Dim Export_File_Search
 
On Error Resume Next
 
Set fso = CreateObject("Scripting.FileSystemObject")  
Set oFolder = fso.GetFolder("\")  

sSearchBMP = "\*.bmp"  

Set Export_File_Search = oFolder & "\" & sSearchBMP  

Set oFiles = Export_File_Search.Files
 
sZiel = "\Storage Card MMC\Archiv"  
 
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"  

Irgendwie funktioniert aber nicht. KANN jemand mich helfen? Was mache ich falsch?
Bei jeden Hilfe bin ich sehr dankbar.

P.S. Sorry füe mein Deutsch ist es nicht perfekt.