MS10082016

This commit is contained in:
SchreiberM
2016-08-10 13:59:12 +02:00
parent 4b8fcfe7f1
commit 3a8c24e2a3
6 changed files with 363 additions and 159 deletions

View File

@@ -183,26 +183,26 @@ Public Class Class_DOC_SEARCH
NewRow = DTGrid.NewRow()
'Icon zuweisen
Select Case extension
Case ".csv"
Select Case extension.ToUpper
Case ".csv".ToUpper
NewRow.Item(0) = My.Resources.doc_excel_csv
Case ".txt"
Case ".txt".ToUpper
NewRow.Item(0) = My.Resources.text
Case ".pdf"
Case ".pdf".ToUpper
NewRow.Item(0) = My.Resources.pdf
Case ".doc"
Case ".doc".ToUpper
NewRow.Item(0) = My.Resources.doc
Case ".docx"
Case ".docx".ToUpper
NewRow.Item(0) = My.Resources.doc
Case ".xls"
Case ".xls".ToUpper
NewRow.Item(0) = My.Resources.xls
Case ".xlsx"
Case ".xlsx".ToUpper
NewRow.Item(0) = My.Resources.xls
Case ".ppt"
Case ".ppt".ToUpper
NewRow.Item(0) = My.Resources.ppt
Case ".pptx"
Case ".pptx".ToUpper
NewRow.Item(0) = My.Resources.ppt
Case ".dwg"
Case ".dwg".ToUpper
NewRow.Item(0) = My.Resources.dwg
Case Else
NewRow.Item(0) = My.Resources._blank