Sub cmdRefreshFiles_Click()
    Dim lThisFile As Long
    Dim lCount As Long
    On Error GoTo ErrFailed
    Me.Range("A2:A1000").ClearContents
    With Application.FileSearch
        .FileType = msoFileTypeOfficeFiles
        .LookIn = Me.Range("A1")
        lCount = .Execute(msoSortByFileName)
        For lThisFile = 1 To lCount
            Me.Range("A" & (2 + lThisFile)).Value = ..FoundFiles(lThisFile)
        Next
        If lCount Then
            ReDim zoFileCopy(1 To lCount)
        Else
            ReDim zoFileCopy(0)
        End If
    End With
    Exit Sub
ErrFailed:
    MsgBox "Negaliu iš katalogo nuskaityti failų sąrašo... " & vbNewLine & Err.Description, vbCritical
End Sub



"Hyperlink" <tomas.bagdonas@gmail.com> parašė naujienų pranešime:hvhq3q$6dq$1@trimpas.omnitel.net...
> Reikia scriptuko ant wordo ar excelio, kad atspausdintu pasirinktos 
> direktorijoje ir jos subdirektorijose esančius failu vardus su pilnu keliu. 
> Gal kas turite tokį scriptuką? 
>