76 lines
3.3 KiB
VB.net
76 lines
3.3 KiB
VB.net
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 PRPMO_DOC_CREATE_NEW_DOC {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 |