I believe someone on this list helped me with this once, so here it is
again. It's probably in the NUG list.
HTH
Add a new timer to your project. Not to a window, but to your project.
Name the Timer: DropTimerA
In the Action event of the Timer, add the following:
App.DropFileProcessor
Add a Method to the timer and name it: Constructor
In the Constructor Method, add the following:
Me.Mode = 1
Me.Period = 0
In the OpenDocument event of App, add the following:
If DropTimerB = nil then DropTimerB = New DropTimerA
DropFileCount = DropFileCount + 1
DropFileList.Append item
Add a method to App and name it: DropFileProcessor
In DropFileProcessor, add the following:
Dim i as Integer
Dim dropFileListCombined as String
For i = 0 to UBound(DropFileList)
dropFileListCombined = dropFileListCombined + EndOfLine +
DropFileList(i).AbsolutePath
Next
MsgBox dropFileListCombined
Add three properties to App:
DropFileCount as Integer
DropFileList() as FolderItem
DropTimerB as Timer
This handles multiple files. In a MsgBox, it will present a list of the
absolute paths of the files. To instead get the names, use:
Dim i as Integer
Dim dropFileListCombined as String
For i = 0 to UBound(DropFileList)
dropFileListCombined = dropFileListCombined + EndOfLine +
DropFileList(i).Name
Next
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
