Here is a simple example:
Make a Timer. In the Action event, add something like this:
Dim theFolder, theProcessingFolder, currentItem as FolderItem
Dim i, itemCount as Integer
theProcessingFolder = DesktopFolder.Child("File Processing")
theFolder = DesktopFolder.Child("Files In")
itemCount = theFolder.Count
If itemCount > 0 then
For i = itemCount DownTo 0
currentItem = theFolder.Item(i)
If not currentItem.Directory and currentItem.Exists then
currentItem.MoveFileTo theProcessingFolder
If currentItem.LastErrorCode = 0 then
Window1.ListBox1.AddRow currentItem.Name
End If
End If
Next
End If
This simply moves files from one folder (Files In) to another folder (File
Processing).
HTH
_______________________________________________
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>
