Dateinamen kürzen

'Dateinamen verändern und Dateien verschieben'  
'27.04.06/ge'  

const C_Quelle = "c:\temp"  
const C_Ziel = "c:\Log"  
const C_Log = "c:\Log\rename.log"  
const C_Erw = "txt"  

DIM O_FSO
DIM O_Log

Set O_FSO = CreateObject("Scripting.FileSystemObject")  
if Not O_FSO.FolderExists("c:\Log") then  
  O_FSO.CreateFolder("c:\Log")  
end if
Set O_Log = O_FSO.OpenTextFile(C_Log,2,true)

call S_CheckFile

'################'  
'Dateien einlesen'  
sub S_CheckFile
  on error resume next
  DIM O_Dir
  DIM O_Datei
  DIM O_Move
  DIM L_Split
  DIM L_DateiNeu
  DIM L_DateiAlt
  DIM L_MoveQuelle
  DIM L_MoveZiel
  set O_Dir = O_FSO.GetFolder(C_Quelle)
  
  for each O_Datei in O_Dir.files
    if instr(O_Datei.Name,"_") > 0 then  
        L_Split = Split(O_Datei.Name,"_")  
        L_DateiNeu = C_Ziel & "\" & L_Split(0) & "." & C_Erw  
        if O_FSO.FileExists(L_DateiNeu) then
            O_Log.writeline "ACHTUNG: Die Datei " & O_Datei.Name & " kann nicht umbenannt werden, da die Datei " & L_Split(0) & "." & C_Erw & " im Ziel existiert!"  
            O_Log.writeline ""  
        elseif O_FSO.FileExists(C_Quelle & "\" & L_Split(0) & "." & C_Erw) then  
            O_Log.writeline "ACHTUNG: Die Datei " & O_Datei.Name & " kann nicht umbenannt werden, da die Datei " & L_Split(0) & "." & C_Erw & " in der Quelle existiert!"  
            O_Log.writeline ""  
        else
            L_DateiAlt = O_Datei.Name
            O_Datei.Name = L_Split(0) & "." & C_Erw  
            if err.number <> 0 then
              O_Log.writeline "FEHLER beim umbenennen von: " & C_Quelle & "\" & L_DateiAlt  
              O_Log.writeline "   " & err.description  
            else
              O_Log.writeline L_DateiAlt & "' umbenannt in '" & L_Split(0) & "." & C_Erw & "'"  
              L_MoveQuelle = C_Quelle & "\" & L_Split(0) & "." & C_Erw  
              L_MoveZiel = C_Ziel & "\"  
              Set O_Move = O_FSO.GetFile(L_MoveQuelle)
              O_FSO.moveFile L_MoveQuelle, L_MoveZiel
              if err.number <> 0 then
                O_Log.writeline "  FEHLER beim verschieben"  
                O_Log.writeline "   " & err.description  
              else
                O_Log.writeline "   " & L_Split(0) & "." & C_Erw & " verschoben nach " & C_Ziel  
              end if
              set O_Move = nothing
            end if
            O_Log.writeline ""  
        end if
    end if
  next    
  on error goto 0
end sub

::---snipp RenameIfPossible.bat
(@for /f "delims=_. tokens=1-3" %%i in ('dir /b /o:d *_*.abc') do @if not exist %%i.%%k @rename %%i_%%j.%%k %%i.%%k ) & %0  
::--snapp

(=21:35:19  D:\temp\crazy=)
>for /f "delims=_. tokens=1-3" %i in ('dir /b /o:d *_*.abc') do @if not exist %i.%k @echo rename %i_%j.%k %i.%k  
rename xyz_12346.abc xyz.abc             <---würde auflösen zu diesem Befehl links.