<font color=green>' alle Dateien eines Ordner umbenennen</font>
Dim sPath As String
Dim FSO As Object
Dim Folder As Object
Dim Datei As Object
Dim sFile As String
Dim iPos As Integer
 
sPath = "d:	emp"
If Right$(sPath, 1) <> "\" Then sPath = sPath & "\"
 
<font color=green>' FSO initialisieren</font>
Set FSO = CreateObject("Scripting.FileSystemObject")
 
<font color=green>' Startordner</font>
Set Folder = FSO.GetFolder(sPath)
 
<font color=green>' alle Dateien des Ordners ermitteln und umbenennen</font>
For Each Datei In Folder.Files
  <font color=green>' Datei-Extension ermitteln</font>
  sFile = Datei.Name
  iPos = InStrRev(sFile, ".")
  If iPos > 0 Then
    <font color=green>' - einfügen</font>
    Mid$(sFile, iPos, 1) = "-"
  End If
 
  <font color=green>' ace-Extension anfügen</font>
  sFile = sFile & ".ace"
 
  <font color=green>' Datei umbenennen</font>
  Name sPath & Datei.Name As sPath & sFile
Next