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

MS2501

Browse Source
This commit is contained in:
SchreiberM
2017-01-25 10:16:40 +01:00
parent 042f24e231
commit 64c99f80b9
43 changed files with 5067 additions and 2448 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Global_Indexer/ClassDragDrop.vb
View File

@@ -15,7 +15,7 @@ Public Class ClassDragDrop
For i = 0 To MyFiles.Length - 1
ClassLogger.Add(">> Simple FileDrop - File: " & MyFiles(i), False)
ReDim Preserve files_dropped(i)
files_dropped(i) = "@DROPFROMFSYSTEM@" & MyFiles(i)
files_dropped(i) = "|DROPFROMFSYSTEM|" & MyFiles(i)
' ListBox1.Items.Add(MyFiles(i))
Next
Return True
@@ -71,7 +71,7 @@ Public Class ClassDragDrop
'// always good to make sure we actually created the file
If (finTemp.Exists = True) Then
ReDim Preserve files_dropped(0)
files_dropped(0) = "@OUTLOOK_ATTACHMENT@" & strOutFile
files_dropped(0) = "|OUTLOOK_ATTACHMENT|" & strOutFile
If LogErrorsOnly = False Then ClassLogger.Add(">> Drop an Attachment - File: " & strOutFile, False)
Return True
Else
@@ -110,9 +110,6 @@ Public Class ClassDragDrop
strFile = strFile.Replace("!", "")
strFile = strFile.Replace("%", "")
strFile = strFile.Replace("$", "")
ClassLogger.Add(">> Drop of msg - File:" & strFile, False)
Try
myobj.SaveAs(strFile)
@@ -122,7 +119,7 @@ Public Class ClassDragDrop
End Try
ReDim Preserve files_dropped(i)
files_dropped(i) = "@OUTLOOK_MESSAGE@" & strFile
files_dropped(i) = "|OUTLOOK_MESSAGE|" & strFile
Next
Return True
'Drop eines Outlook Attachments