add keybinding for profile selector
This commit is contained in:
@@ -1,12 +1,9 @@
|
||||
Imports System.IO
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports System.Text
|
||||
Imports System.Globalization
|
||||
Imports System.Threading
|
||||
Imports System.Runtime.InteropServices
|
||||
Imports DigitalData.Modules.Language
|
||||
Imports DigitalData.Modules.Windows
|
||||
Imports DigitalData.Modules.License
|
||||
Imports DigitalData.Modules.Base
|
||||
Imports DigitalData.GUIs.Common
|
||||
|
||||
Public Class frmStart
|
||||
@@ -250,10 +247,10 @@ Public Class frmStart
|
||||
End If
|
||||
End If
|
||||
|
||||
For Each Filerow As DataRow In DTACTUAL_FILES.Rows
|
||||
Dim oFileString As String = Filerow.Item("FILENAME2WORK")
|
||||
Dim oFileGuid = Filerow.Item("GUID")
|
||||
Dim oFileHash = Utils.NotNull(Filerow.Item("FILE_HASH"), "")
|
||||
For Each oRow As DataRow In DTACTUAL_FILES.Rows
|
||||
Dim oFileString As String = oRow.Item("FILENAME2WORK")
|
||||
Dim oFileGuid = oRow.Item("GUID")
|
||||
Dim oFileHash = oRow.ItemEx("FILE_HASH", "")
|
||||
LOGGER.Info("Processing user file {0}", oFileString)
|
||||
|
||||
CURRENT_FILENAME = oFileString
|
||||
|
||||
Reference in New Issue
Block a user