Reject emoji file names

This commit is contained in:
Jonathan Jenne
2022-02-01 14:39:46 +01:00
parent 934d137651
commit d70eff842a
2 changed files with 20 additions and 7 deletions

View File

@@ -112,12 +112,14 @@ Public Class frmStart
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"), "")
LOGGER.Info("Processing user file {0}", oFileString)
CURRENT_FILENAME = Filerow.Item("FILENAME2WORK")
CURRENT_WORKFILE_GUID = Filerow.Item(0)
CURRENT_WORKFILE = Filerow.Item("FILENAME2WORK")
CURRENT_WORKFILE_HASH = Utils.NotNull(Filerow.Item("FILE_HASH"), "")
CURRENT_FILENAME = oFileString
CURRENT_WORKFILE_GUID = oFileGuid
CURRENT_WORKFILE = oFileString
CURRENT_WORKFILE_HASH = oFileHash
LOGGER.Info(">> CURRENT_WORKFILE: " & CURRENT_WORKFILE)
If IO.File.Exists(CURRENT_WORKFILE) = True And DTACTUAL_FILES.Rows.Count > 0 Then