'********************************************************************
'*
'* Function CSVJoin
'*
'* Author: NetworkAdminKB.com
'* Created: 2008-05-24
'* Modified: 2008-05-24
'*
'* Purpose: Returns an comma delimited string from an array with the
'* individual values in quotes (or another qualifier).
'* This is similar to the VBScript Join function. However,
'* this function qualifies the individual values as well.
'*
'* Input: aryAny Any Array of values.
'* strDelimiter The delimiter for the values in the array.
'* Default = ","
'* strQualifier The qualifier for the values.
'* Default is none (Empty)
'*
'* Output: Returns an comma delimited string from an array with the
'* individual values in quotes (or another qualifier).
'* Returns Empty if aryAny is not an Array
'*
'* Changes:
'********************************************************************
Function CSVJoin(ByRef aryAny, ByVal strDelimiter, ByVal strQualifier)
'Version 1.0 2008-05-24
Dim x, strNew
'Set default if not specified
If Len(strDelimiter) = 0 Then strDelimiter = ","
If IsArray(aryAny) Then
strNew = strQualifier & Join(aryAny, strQualifier & strDelimiter & _
strQualifier) & strQualifier
Else
strNew = Empty
End If 'IsArray(aryAny)
CSVJoin = strNew
End Function 'CSVJoin