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

Dir To Variant Vector Sample Sub
File Names Class

Private Sub DirToVariantVectorSample()
    ' Sample of the DirToVariantVector function.

    Dim avarFiles() As Variant
    If DirToVariantVector(avarFiles(), "[ET]*.*", vbTextCompare, True, True, False, True, vbNormal, True) Then
        Dim lngCur As Long
        For lngCur = 1 To UBound(avarFiles)
            Debug.Print lngCur & ": " & avarFiles(lngCur)
        Next lngCur
    End If
End Sub

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