That was quick, wasn't it? I've discovered that if I want to produce a
console version of the module for reporting fundamental system paths in
Linux, I need RB Pro.
That's as far as I can go, I'm afraid.
If anyone has RB Pro for Linux and would like to produce the console
version of the module, or even offer it afterwards to the Rev community,
here is the coding which is very simple:
-------------------------------------
Dim t as TextOutputStream
t = GetFolderItem("sys_info.txt").CreateTextFile
if t = nil then quit //couldn't create text file, possibly
don't have permissions
if DesktopFolder <> nil then t.WriteLine DesktopFolder.AbsolutePath
else t.WriteLine "failed"
if PreferencesFolder <> nil then t.WriteLine
PreferencesFolder.AbsolutePath else t.WriteLine "failed"
if SystemFolder <> nil then t.WriteLine SystemFolder.AbsolutePath
else t.WriteLine "failed"
if TemporaryFolder <> nil then t.WriteLine
TemporaryFolder.AbsolutePath else t.WriteLine "failed"
if ApplicationSupportFolder <> nil then t.WriteLine
ApplicationSupportFolder.AbsolutePath else t.WriteLine "failed"
if FontsFolder <> nil then t.WriteLine FontsFolder.AbsolutePath
else t.WriteLine "failed"
if StartupItemsFolder <> nil then t.WriteLine
StartupItemsFolder.AbsolutePath else t.WriteLine "failed"
if TrashFolder <> nil then t.WriteLine TrashFolder.AbsolutePath
else t.WriteLine "failed"
t.close
quit
-------------------------------------
Note that the "if-else" conditionals above should be all on one line,
not broken as it is bound to appear in this e-mail.
Now I'll stop writing RB code on the UR-List before someone starts
complaining!
Bob
_______________________________________________
use-revolution mailing list
use-revolution@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
