🚀 go-pugleaf

> Kłopot jest z kodem VBA gdyż to co napisałem tj.
> 
>     listaplików = (call ListFiles("c:\temp", "*.txt", true))
> 
> poprostu nie działa krzycząc, że jest błąd kompilacji, natomiast

Czyli nie znasz VBA ;)

Nie możesz w nawiasie dać "CALL" - bo "CALL" jest zarezerwowanym słowem kluczowym i może być używane tylko na początku wiersz przy wywoływaniu funkcji lub procedur

>    listaplików = (ListFiles("c:\temp", "*.mdb", True))
> 
> niby się wykonuje gdyż w okienku Immediate pojawiają się poszukiwane 
> pliki ale sama zmienna listaplików jest pusta !!!

Bo ListFiles nie zwraca wyniku:
Public Function ListFiles(...)

Jeżeli już - to musiałbyś zmodyfikować treść tej funkcji:

i zamiast:

    'Add the files to a list box if one was passed in. Otherwise list to the Immediate Window.
    If lst Is Nothing Then
        For Each varItem In colDirList
            Debug.Print varItem
        Next
    Else
        For Each varItem In colDirList
        lst.AddItem varItem
        Next
    End If

coś takiego:

    For Each varItem In colDirList
        ListFiles = ListFiles & varItem & vbCr
    Next

i dodatkowo zmodyfikować nagłówek:

    Public Function ListFiles(...) As String

oczywiście musisz zamiast (...) wpisać pełną/oryginalną listę argumentów

robin