' Listing 2. Code for the SetProperties Subroutine

Sub SetProperties()
Dim Arguments As Variant
Dim i As Integer

	Arguments = GetArguments
	bSilent = False
	
	sLogFile = "DBURLChecker.log"
	LogToFile = False
	For i = 0 To UBound(Arguments)
		Select Case UCase(Arguments(i, 0))
			Case "S":
				bSilent = True
				Arguments(i, 0) = ""
				LogToFile = True
			Case "LOGFILE":
				If Trim(Arguments(i, 1)) > "" Then
					sLogFile = Trim(Arguments(i, 1))
				Else
					sLogFile = "DBURLChecker.log"
				End If
			Case Else
		End Select
	Next
	
End Sub