On Apr 25, 2006, at 1:27 PM, SChani wrote:
Hello, i use a
Do
i = i +1
Loop until Not obj.NextItem
in a DropObject of a Listbox to count the droped Files.
I need this integer for a Progressbar Max Value.
And 2nd, i do the same
Do
If Obj.FolderItemAvailable then
// Do anything with the Files
end if
Loop until Not obj.NextItem
to convert the files.
But in the first Loop, i stand on the last item of the DropObject obj.
So the 2nd Loop do only the last Item.
How can i go to the first item of the Obj ?
Copy the objects to an array first, then use the array.
dim dropList() as FolderItem
Do
If obj.FolderItem <> nil then
dropList.Append obj.FolderItem
End if
Loop Until not obj.FolderItemAvailable
Now use 1 + UBound(dropList) to set the ProgressBar. Then loop
through the array to process the files.
Charles Yeomans
_______________________________________________
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>
