''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Script        : Dateien in einem Ornder umbenennen                           '
' File          : 03_01_dateienUmbenennen.vbs                                  '
' Date          : 2007-01-17 - Last modified: 2007-01-17                       '
'                                                                              '
'               Michael Puff - http://www.michael-puff.de                      '
'                                                                              '
'               Durch ein File-Container Attribut iterieren                    '
'               mit einer For-Each-Schleife und Dateien umbenennen             '
'                                                                              '
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set fso = CreateObject("Scripting.FileSystemObject")
Set fo = fso.GetFolder("\\srv.ovm-kassel.de\Profile$\b25a09_puff\Eigene Dateien")
Set fc = fo.Files

i = 1
For Each file in fc
  Filename = "Datei" & i & "." + fso.GetExtensionName(file.Name)
  file.name = Filename
  i = i + 1 
Next

MsgBox "Done"