'SetDefaultLocation.vbs
'Rick Shaddock, Rick@CICorp.com, 202-829-4444

'This specifies the default location for documents in the
'Preferences dialog box and accordingly in the ACT! application.


Dim objApp 		'as object
Dim objPreferences 	'as object

'Initialize the Application object.
'This starts ACT! if it is not already running.
Set objApp = CreateObject("ACTOLE.APPOBJECT")

'Open the database.
objApp.OpenFile "C:\ACT\Database\ACT5demo.dbf"

'Set the Preferences object.
Set objPreferences = objApp.Preferences

'Set the default location for documents to C:\MY DOCUMENTS (General tab).
objPreferences.SetDefaultLocation 0, "C:\ACT\Database"
objPreferences.SetDefaultLocation 1, "C:\ACT\Document"
objPreferences.SetDefaultLocation 2, "C:\ACT\Template"
objPreferences.SetDefaultLocation 3, "C:\ACT\Report"
objPreferences.SetDefaultLocation 4, "C:\ACT\Sync"
objPreferences.SetDefaultLocation 5, "C:\ACT\Query"
objPreferences.SetDefaultLocation 6, "C:\ACT\Layout"
objPreferences.SetDefaultLocation 7, "C:\ACT\Macro"
objPreferences.SetDefaultLocation 8, "C:\ACT\BrfCase"
objPreferences.SetDefaultLocation 9, "C:\ACT\Outbox"
objPreferences.SetDefaultLocation 10, "C:\ACT\Spell"
objPreferences.SetDefaultLocation 10, "C:\ACT\Email"
objPreferences.SetDefaultLocation 12, "C:\ACT\NetLinks"


'Close the application.
Set objPreferences = Nothing
Set objApp = Nothing


MsgBox "Default Locations Set"

'NOTES
'Value Setting Value Setting
'0 Database 
'1 Document 
'2 Document template 
'3 Report, label, envelope 
'4 Synchronize 
'5 Query
'6 Layout
'7 Macro
'8 Briefcase
'9 Outbox
'10 Spelling dictionary
'12 NetLinks (ACT! 4.0 or later)

'Objects Derived from the Application Class 267