<-- Previous || Up || Next -->

Environ To Variant Vector Sample Sub
Basic Extensions Class

Private Sub EnvironToVariantVectorSample()
    ' Print all of the Environment settings using the EnvironToVariantVector function.
    ' Settings are printed in alphabetical order.

    Dim varIgnore As Variant
    Dim avarSettings() As Variant
    varIgnore = EnvironToVariantVector(avarSettings)
    varIgnore = SortVariantVector(avarSettings)
    Debug.Print VariantVectorToString(avarSettings, vbCrLf)

End Sub

Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.