Dim fso
Dim oFile
Dim oFiles
Dim oFolder
Dim sQuelle
Dim sZiel
Dim oldname
Dim newname
Dim zaehler
 
 
 Set fso  = CreateObject("Scripting.FileSystemObject") 
 Set oFolder = fso.GetFolder(path)
 Set oFiles  = oFolder.files  
 sZiel  =  "D:\data\input\SAPload\" 
 
  For Each oFile In oFiles
 
   sQuelle = fso.GetAbsolutePathName(oFile)
   oldname = (oFile.Name)
    ' 
     newname = Mid(oFile.name,16,100)
  '  
   fso.MoveFile path + oldname, sZiel + newname
  MsgBox(newname)
 
  Next
 
End Sub