dotNETportal.cz

Dá se postavit podmínka "vše kromě názvu adresaře", myšleno náhradou za "XXXX"?

dik

    Public Function PojdiAdresDejNazvyAdr(ByVal Cesta$)
        Dim arrstrHold As String() = Directory.GetDirectories(Cesta, "XXXX")
        Dim ParR% = UBound(arrstrHold)
        'Dim fi As String
        Dim Nazev As String, i%
        Dim ArrAdr(1, 2) As String
        ReDim ArrAdr(ParR, 2)

        For i = 0 To ParR
            Dim di As New IO.DirectoryInfo(arrstrHold(i))
            Nazev = di.Name
            If LCase(Nazev) <> "licence" Then
                ArrAdr(i, 0) = Nazev
                ArrAdr(i, 1) = di.FullName
            End If

        Next
        Return ArrAdr
    End Function