ZooFlow: IDB Admin

GUIs.ZooFlow/Globix/ClassFileDrop.vb

@@ -1,4 +1,6 @@
-Imports System.IO
+Option Strict Off
+
+Imports System.IO
 Imports DigitalData.Modules.Logging
 Imports Microsoft.Office.Interop
 
@@ -10,7 +12,7 @@ Public Class ClassFileDrop
         _LOGGER = LogConfig.GetLogger()
         clsFilehandle = New ClassFilehandle()
     End Sub
-    Public Function Drop_File(e As DragEventArgs)
+    Public Function Drop_File(e As DragEventArgs) As Boolean
         Try
             _LOGGER.Info("Available Drop Formats:")
 
@@ -24,7 +26,7 @@ Public Class ClassFileDrop
                 Dim MyFiles() As String
                 Dim i As Integer
                 ' Assign the files to an array. 
-                MyFiles = e.Data.GetData(DataFormats.FileDrop)
+                MyFiles = DirectCast(e.Data.GetData(DataFormats.FileDrop), String())
                 ' Loop through the array and add the files to the list. 
                 For i = 0 To MyFiles.Length - 1
                     _LOGGER.Info(">> Simple FileDrop - File: " & MyFiles(i))
@@ -143,8 +145,4 @@ Public Class ClassFileDrop
             Return False
         End Try
     End Function
-
-
-
-
 End Class