Imports System.IO

Public Class frmFileRename
    Private ReadOnly oRenameType As String
    Private OldDisplayName As String

    Public Sub New(DocID As Integer, oldName As String, pRenameType As String)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
        lblType.Text = pRenameType
        lblOldFilename.Text = oldName
        txtNewName.Text = oldName
        oRenameType = pRenameType
    End Sub

    Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
        Dim result As MsgBoxResult
        Dim oFilePattern As String
        If oRenameType = "Displayname" Then
            oFilePattern = "den Displaynamen"
            If USER_LANGUAGE <> "de-DE" Then
                oFilePattern = "the displayname"
            End If
        Else
            oFilePattern = "die Datei"
            If USER_LANGUAGE <> "de-DE" Then
                oFilePattern = "the file"
            End If
        End If
        Dim oMSG = "Wollen Sie " + oFilePattern + " wirklich umbenennen?"
        If USER_LANGUAGE <> "de-DE" Then
            oMSG = $"Do You really want to rename {oFilePattern} ?"
        End If
        result = MessageBox.Show(oMSG, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If result = MsgBoxResult.Yes Then
            If oRenameType = "Displayname" Then
                Try
                    If txtNewName.Text <> "" Then
                        If ClassFileResult.Set_Displayname(txtNewName.Text) Then
                            Me.Close()
                        Else
                            MsgBox("Not succesfull - Check log", MsgBoxStyle.Critical)
                        End If
                    End If
                Catch ex As Exception
                    ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Unexpected Error in  Setting Displayname Click: ", ex.Message)
                End Try
            Else
                Dim OldName, NewName, OnlyFilename As String
                OldName = ClassDocGrid.SELECTED_DOC_PATH
                ' Define file names.
                NewName = txtNewName.Text
                OnlyFilename = NewName
                Dim oFullFilename = ClassHelper.FORMAT_WM_PATH(ClassDocGrid.SELECTED_DOC_PATH)
                Dim name1 = Path.Combine(Path.GetDirectoryName(oFullFilename), NewName)
                NewName &= Path.GetExtension(oFullFilename)
                OnlyFilename &= Path.GetExtension(oFullFilename)
                ' Rename file.
                LOGGER.Info($"Renaming Old: [{OldName}]")
                LOGGER.Info($"Renaming New: [{NewName}]")
                My.Computer.FileSystem.RenameFile(OldName, NewName)
                LOGGER.Info($"Renaming FileSystem done!")
                Cursor = Cursors.WaitCursor
                Dim oEXEC As String = $"EXEC PROF_DOC_CREATE_UPDATE {ClassDocGrid.SELECTED_DOC_ID}, {CURRENT_RECORD_ID},'{USER_USERNAME}',''"
                If MYDB_ECM.ExecuteNonQuery(oEXEC) Then
                    Me.Close()
                Else
                    MsgBox("Not succesfull - Check log", MsgBoxStyle.Critical)
                End If
            End If
        End If
    End Sub
End Class