Help please: 5v6

[Lennox Jacob <lenpartico@yahoo.com>]

Hello,
I have this code in a pushbutton which works flawlessly on Mac OSX.5 but gives 
a NOE after two clicks of the pushbutton on Mac OSX.6.


  Dim FolderA, FolderB As folderitem
    FolderA = SpecialFolder.Desktop.Child("A")
  If not FolderA.Exists then FolderA.CreateAsFolder
  FolderA.launch

    Dim TOS as TextOutputStream
  Dim MyNewFile As folderitem = FolderA.Child("NF ")
  TOS = MyNewFile.CreateTextFile
  TOS = Nil

    FolderB = FolderA.Child("B")
  If not FolderB.Exists then FolderB.CreateAsFolder
  FolderB.launch

    Dim x as integer = 0
  Dim y as integer

    for y = FolderB.Count DownTo 1
    Dim myAddedFile As folderitem = FolderB.TrueItem(y)
        If myAddedFile.name = ".DS_Store" or myAddedFile.directory or 
myAddedFile.visible = false then
          elseIf  myAddedFile.name.Left(3) = "NF " then
      X = X +1
    end if
  next y

    MyNewFile.name = MyNewFile.name + " " + Str(X)
  MyNewFile.MoveFileTo FolderB

      MyNewFile = FolderA.Child("NF ")
  If not MyNewFile.exists then
    TOS = MyNewFile.CreateTextFile
    TOS = Nil
  end if

What can I do to get it working on Mac OSX.6?
Thanks.
Lennox


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

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