'Prüfen & ggf. durchführen der Änderung
                Dim oDir As String = oFolder & IIf(oFolder.EndsWith("\"), "", _
                  "\")
                If String.Compare(FSI.Name, oName) <> 0 Then
                    Try
                        File.Move(FSI.FullName, oDir & oName)
                    Catch ex As Exception
                        Try
                            Dim uName As String = UniqueName(oDir & oName)
                            File.Move(FSI.FullName, uName)
                            File.Move(uName, oDir & oName)
                        Catch ex2 As Exception
                            MsgBox("Die Datei/Ordner: " & FSI.Name & vbNewLine _
                              & "konnte nicht umbenannt werden." & vbNewLine & _
                              "Möglicherweise wird sie derzeit verwendet." & _
                              vbNewLine)
                        End Try
                    End Try
                End If