Imports System.IO

Public Class frmFileRename
    Private ReadOnly oRenameType As String
    Private DisplayName As String
    Private FullFilename As String
    Private DocID As Int64

    Public Sub New(pDocID As Integer, oldName As String, pRenameType As String, pFullFilename 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
        FullFilename = pFullFilename
        DocID = pDocID
    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 = FullFilename

                ' Define file names.
                NewName = txtNewName.Text
                OnlyFilename = NewName
                Dim oFullFilename = ClassHelper.FORMAT_WM_PATH(FullFilename)
                Dim name1 = Path.Combine(Path.GetDirectoryName(oFullFilename), NewName)
                NewName &= Path.GetExtension(oFullFilename)
                OnlyFilename &= Path.GetExtension(oFullFilename)
                ' Rename file.
                LOGGER.Info($"Renaming Old: [{oFullFilename}]")
                LOGGER.Info($"Renaming New: [{NewName}]")
                My.Computer.FileSystem.RenameFile(oFullFilename, NewName)
                LOGGER.Info($"Renaming FileSystem done!")
                Dim oEXEC As String = $"EXEC PROF_DOC_CREATE_UPDATE {DocID}, {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