Word Document Properties

Part III: Expanding Your VBA Horizons 
16_046500 ch10.qxp 12/5/06 5:36 PM Page 236

---

data to read. Each iteration of the loop selects an action based on the content
of 
DataElement
.
Notice the 
Set Selector = AppConfig
statement. This statement does
more than you might think. It actually makes 
Selector
and 
AppConfig
equal so that any changes made to 
Selector
also appear in 
AppConfig
.
This technique provides a generic reference when parsing the key/value pairs
in the file. The routine doesn’t have to do anything special because the cor-
rect 
Dictionary
object is already selected.
The final piece of coding to consider is the key/value pair parsing. The INI 
file stores them as two strings separated by an equals sign. The information
appears on a single line. Using the string manipulation functions shown 
separates the two values so that the code can add them to the appropriate
dictionary.
Now it’s time to discuss the 
OpenReadConfig
function. As with 
OpenWrite
Config
, this is a generic function for working with files. Listing 10-4 shows
how this function looks.
Listing 10-4
Opening a Configuration File for Reading
Public Function OpenReadConfig(AppName As String, Filename
As String, ByRef Output As TextStream) As
Boolean
‘ Define the path variable.
Dim DataPath As String
DataPath = Application.UserLibraryPath + AppName + “\”
‘ Create a file system object.
Dim FS As FileSystemObject
Set FS = New FileSystemObject
‘ Determine whether the file exists.
If Not FS.FileExists(DataPath + Filename) Then
‘ Tell the user there are no config settings.
OpenReadConfig = False
‘ Exit the Sub without reading the file.
Exit Function
End If
‘ Create a text file object.
Set Output = FS.OpenTextFile( _
DataPath + Filename, ForReading)
(continued)
237