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

MS_21.01.2016

Browse Source
This commit is contained in:
SchreiberM
2016-01-21 17:05:06 +01:00
parent 9df213f39f
commit bed11c3d80
14 changed files with 376 additions and 241 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
app/DD-Record-Organiser/frmScanFiles.vb
View File

@@ -29,21 +29,26 @@ Public Class frmScanFiles
For Each row As DataRow In DT.Rows
Dim extension = Path.GetExtension(row.Item("FILENAME2WORK").ToString)
Dim filename = row.Item("FILENAME_ONLY").ToString
Dim ID = row.Item("GUID").ToString
'We can only find associated exes by extension, so don't show any files that have no extension
If IsNothing(extension) Then
Else
If extension.Contains("pdf") Then
'Add the file to the ListView, with the executable path as the key to the ImageList's image
ListView1.Items.Add(filename, 0)
Dim filestring = row.Item("FILENAME2WORK")
If ClassHelper.CheckFileIsInUse(filestring) = False Then
Dim filename = row.Item("FILENAME_ONLY").ToString
Dim ID = row.Item("GUID").ToString
'We can only find associated exes by extension, so don't show any files that have no extension
If IsNothing(extension) Then
Else
ListView1.Items.Add(filename)
If extension.Contains("pdf") Then
'Add the file to the ListView, with the executable path as the key to the ImageList's image
ListView1.Items.Add(filename, 0)
Else
ListView1.Items.Add(filename)
End If
ListView1.Items(i).Tag = ID
i += 1
End If
ListView1.Items(i).Tag = ID
i += 1
End If
Next
If DT.Rows.Count = 0 Then
Me.Close()