AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS2

Browse Source
This commit is contained in:
SchreiberM
2016-04-27 12:44:27 +02:00
parent 7c18f672ed
commit 53c9add202
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@@ -3466,10 +3466,12 @@ Public Class frmConstructor_Main
End Try End Try
If DTGrid.Columns.Count > 0 Then If DTGrid.Columns.Count > 0 Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Datatable Grid created!", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Datatable Grid created!", False)
'Alle gefundenen Dateien durchlaufen
For Each dok As WMObject In windreamSucheErgebnisse For Each dok As WMObject In windreamSucheErgebnisse
Dim fullpath = "W:" & dok.aPath Dim fullpath = "W:" & dok.aPath
Dim Folderpath = Path.GetDirectoryName(fullpath) Dim Folderpath = Path.GetDirectoryName(fullpath)
Dim filename = Path.GetFileName(fullpath) Dim filename = Path.GetFileName(fullpath)
Dim extension = Path.GetExtension(fullpath)
Try Try
Dim NewRow As DataRow Dim NewRow As DataRow
NewRow = DTGrid.NewRow() NewRow = DTGrid.NewRow()
@@ -3478,7 +3480,12 @@ Public Class frmConstructor_Main
Dim Indexname = DT.Rows(0).Item(Column) Dim Indexname = DT.Rows(0).Item(Column)
Dim idxvalue Dim idxvalue
Try Try
idxvalue = dok.GetVariableValue(Indexname) If Indexname.ToString.ToUpper = "Dateiname".ToUpper Then
idxvalue = filename
Else
'windream-Indexwert holen
idxvalue = dok.GetVariableValue(Indexname)
End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> idxvalue from windream: '" & idxvalue.ToString & "'", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> idxvalue from windream: '" & idxvalue.ToString & "'", False)
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Unexpected Error in GetVariableValue for Index '" & Indexname & "- Error: " & ex.Message) ClassLogger.Add("Unexpected Error in GetVariableValue for Index '" & Indexname & "- Error: " & ex.Message)