Problems converting 2007 REALbasic to 2012 RealStudio

Tom Bisbee · **Joined:** Tue May 08, 2007 9:48 am **Posts:** 25

Good afternoon. I'm in the process of recompiling a 2007 REALbasic program using Real Studio 2012 Release 2.

Yesterday I asked a question about 'ApplicationSupportFolder' and received two answers which I'm not smart enough to take advantage of. (I should note that I'm 79 and haven't programmed in five years.) The compiler's error message was "This item does not exist".

So today I'm back with the question - but I'm showing the code around it:

OwnManAcctDB = New REALSQLDatabase
Dim f, g, h as FolderItem
f = ApplicationSupportFolder
if f = nil
...
endif

fpath = f.AbsolutePath + "Holdin's Holdings TB"
g = GetFolderItem(fpath)
if not g.exists then
h = new FolderItem(fpath)
h.CreateAsFolder
end if

ALSO. It tells me that over 100 of my controls are based on a deprecated class. HELP?

Tom Bisbee - in the hills of Vermont.

npalardy · **Posted:** Sat Jan 05, 2013 4:12 pm

Tom Bisbee wrote:

OwnManAcctDB = New REALSQLDatabase
Dim f, g, h as FolderItem
f = ApplicationSupportFolder
if f = nil
...
endif

OwnManAcctDB = New REALSQLDatabase
Dim f, g, h as FolderItem
f = SpecialFolder.ApplicationData
if f = nil
...
endif

kermit · **Joined:** Mon May 30, 2011 12:56 am **Posts:** 702

and...

fpath = f.AbsolutePath + "Holdin's Holdings TB"
g = GetFolderItem(fpath)
if not g.exists then
  h = new FolderItem(fpath)
  h.CreateAsFolder
end if

becomes

dim myfolder as folderitem
myfolder = f.child("Holdin's Holdings TB")

if not myfolder.exists then
  myfolder.CreateAsFolder
end if

Select all the controls, allow RB to update them. (usually a non change like static text > label)
Save the project with a new name, and start from there.

	Real Software Forums The forum for Real Studio and other Real Software products.
[ REAL Software Website \| Board Index ]

Real Software Forums

Problems converting 2007 REALbasic to 2012 RealStudio