prevent dropping on lnk files

2020-03-20 14:32:39 +01:00 · 2020-03-20 14:32:39 +01:00 · 526157b016
commit 526157b016
parent 13da51251d
1 changed files with 10 additions and 0 deletions
--- a/Global_Indexer/ClassFilehandle.vb
+++ b/Global_Indexer/ClassFilehandle.vb
@ -39,6 +39,16 @@ Public Class ClassFilehandle
                    End If
                End If
            End If
+
+            If filename.ToUpper.EndsWith(".LNK") Then
+                If USER_LANGUAGE = "de-DE" Then
+                    MsgBox("Verknüpfungen können nicht abgelegt werden!", MsgBoxStyle.Critical, "Global Indexer")
+                Else
+                    MsgBox("Shortcuts cannot be droppped!", MsgBoxStyle.Critical, "Global Indexer")
+                End If
+                Return False
+            End If
+
            Return Insert_GI_File(filename, handletype)
        Catch ex As Exception
            MsgBox("Unexpected Error in Decide_FileHandle: " & ex.Message, MsgBoxStyle.Critical)