Dim path6 As String = "ftp://" & Server_Benutzer() & _
                          ":" & Server_Kennwort() & "@" & Server_Ordner()
                        Dim oldex As String = ".txt"
                        Dim newex As String = ".sav"
 
                        Try
                            Dim di As New IO.DirectoryInfo(path6)
 
                            For Each file As IO.FileInfo In di.GetFiles("*" & _
                              oldex)
                                IO.File.Move(file.FullName, _
                                IO.Path.ChangeExtension( _
                                  file.FullName, newex))
                            Next
                        Catch ex As Exception
                            Debug.WriteLine("Fehler: " & ex.Message)
                        End Try