realbasic-nug
[Top] [All Lists]

Re: Help please - "Moving files"

To: REALbasic NUG <realbasic-nug@lists.realsoftware.com>
Subject: Re: Help please - "Moving files"
From: Charles Yeomans <charles@declareSub.com>
Date: Thu, 12 Jun 2008 16:25:15 -0400
Authentication-results: mx.google.com; spf=neutral (google.com: 74.124.194.228 is neither permitted nor denied by best guess record for domain of realbasic-nug-bounces@lists.realsoftware.com) smtp.mail=realbasic-nug-bounces@lists.realsoftware.com
Delivered-to: listarchive@realsoftware.com
In-reply-to: <ABE51E83-E8AC-4DAA-A03B-1655DEC0CA56@shaw.ca>
References: <44902.10580.qm@web65616.mail.ac4.yahoo.com> <ABE51E83-E8AC-4DAA-A03B-1655DEC0CA56@shaw.ca>
Reply-to: REALbasic NUG <realbasic-nug@lists.realsoftware.com>
Sender: realbasic-nug-bounces@lists.realsoftware.com

On Jun 12, 2008, at 4:10 PM, Terry Ford wrote:


On Jun 12, 2008, at 12:33 PM, Lennox Jacob wrote:

OK,
I added
If f = nil then msgbox "***f = Nil***"
and indeed f is nil, but why is that when I just transferred a few files from C C C to DDD ? and how can I fix that, something needs to be refreshed I would think.

You redim the folderitem within the loop:

for i As Integer = dir.Count DownTo 1

   Dim f As folderitem = dir.TrueItem(i)
   if f.name.Left(12) =  "New Appts - "   then

Have you tried something like the following?

Dim dir as FolderItem = DesktopFolder.child("DDD")
Dim f As folderitem

for i As Integer = dir.Count DownTo 1
 f = dir.TrueItem(i)
  if f.name.Left(12) =  "New Appts - "   then
    f.MoveFileTo CCC
  end if
next

This part he has right.

Charles Yeomans

_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives:
<http://support.realsoftware.com/listarchives/lists.html>


<Prev in Thread] Current Thread [Next in Thread>