Public Function VariantVectorToStringVector( _ ByRef rTo() As String _ , ByRef vFm() As Variant _ ) As Boolean
Assuming Static avarNames(0 To 2) As Variant avarNames(1) = "Car" Dim astrNames() As String for example VariantVectorToStringVector(astrNames(), avarNames()) = True leaves LBound(astrNames) = 0 UBound(astrNames) = 2 astrNames(0) = "" astrNames(1) = "Car" astrNames(2) = ""See also:
StringVectorToVariantVector Function (inverse) VariantToString Function (fix-up rules) VariantMatrixToStringMatrix FunctionrTo: Dynamic array of Strings that will be dimensioned with one dimension before it receives copy of each of the elements in vFm.
Copyright © 1999-2005 Entisoft