'ein Texbox alias txtPfad
'ein Command Box alias cmdReName
'und das hier einfach reinkopieren...der Rest sollte leicht verständlich sein
Private Sub cmdReName_Click()
 Dim ff As Long
 ff = FreeFile
 Open "C:\Rename.bat" For Binary As #ff
    Put #ff, , "copy " & txtPfad & "\" & "*.jpg " & txtPfad & "\" & "*.rar" & _
      vbCrLf & "del " & txtPfad & "\" & "*.jpg"
 Close #ff
 Shell "C:\Rename.bat"
End Sub

[u]Mein System online

MfG ICE-MAN