This commit is contained in:
SchreiberM
2016-05-04 16:08:43 +02:00
parent 2041f952ff
commit 042f24e231
3 changed files with 19 additions and 1 deletions

View File

@@ -1063,7 +1063,9 @@ Public Class frmIndex
MsgBox("Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper, MsgBoxStyle.Exclamation, "Unexpected error in Name generieren:")
End Select
Next
CURRENT_NEWFILENAME = ClassFilehandle.CleanFilename(CURRENT_NEWFILENAME, "")
CURRENT_NEWFILENAME = NewFileString & extension
Dim path = System.IO.Path.GetDirectoryName(CURRENT_NEWFILENAME)
If folder_Created = False Then
' Den Zielordner erstellen