I'm not sure what's causing your problem, but instead you might try
something like this:
Dim i, rowCount as Integer
Dim FilePath, FileName as String
Dim SaveFolder as FolderItem
rowCount = SearchList.ListCount - 1
SaveFolder = GetFolderItem("<PATH TO YOUR DESKTOP>\SOURCE\DESTINATION")
For i = rowCount DownTo 0
If SearchList.CellCheck(i,0) = True then
FilePath = SearchList.Cell(i,2)
FileName = SearchList.Cell(i,1)
Source = getFolderItem(FilePath)
Destination = GetFolderItem(SaveFolder.AbsolutePath + Filename)
Source.CopyFileTo Destination
End if
Next
Please note that paths are generally frowned upon. In fact, almost always.
I've learned the hard way that relying on them, even on Windows, can cause
you grief.
A better way might be to use CellTags. Instead of relying on the path in
the second column, add the path to the column as a visual representation of
where the file is and store a reference to the actual file in the CellTag of
the second column. CellTags are wonderful things that allow you to store
variants in the ListBox.
ListBox1.AddRow ""
ListBox.Cell(ListBox1.LastIndex, 2) = File.AbsolutePath
ListBox.CellTag(ListBox1.LastIndex, 2) = File
Then, change the main code:
FilePath = SearchList.Cell(i,2)
FileName = SearchList.Cell(i,1)
Source = getFolderItem(FilePath)
Destination = GetFolderItem(SaveFolder.AbsolutePath + Filename)
To:
Source = SearchList.CellTag(i, 2)
Source.CopyFileTo SaveFolder
Also, SaveFolder does not/should not have to be based on a path...
HTH
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives:
<http://support.realsoftware.com/listarchives/lists.html>
