На чём пишем?:)

Ок Ок

 

Ну, раз все тут понтуются своими кодами, и я что ли понтанусь, типа

Code:

    Private Function FindFile(ByVal dir As IO.DirectoryInfo, ByVal pattern As String) As List(Of String)
        Dim out As New List(Of String)
        Try
            For Each f As IO.FileInfo In dir.GetFiles
                If IsMatch(f.FullName, pattern) Then
                    out.Add(f.FullName)
                    Debug.Print(f.FullName)
                End If
            Next

            For Each d As IO.DirectoryInfo In dir.GetDirectories
                For Each o As String In FindFile(d, pattern)
                    out.Add(o)
                Next
            Next
        Catch ex As Exception

        End Try

        Return out
    End Function
 

Трудно разобраться(серьезно, типа codereview сделайте)?

 

PHP:

<?php phpinfo(); ?>

 

Ну тут уж Цукунберг бы позавидовал.

 

Це хто такий ?
Лол.Да жиды у нас врожденные гении.Перельманы, Вассерманы, Цукерберги всякие.Из актеров - Швимеры, Шнайдеры, Стилеры, Сендлеры.Как же я мог забыть про шибко петросянского Урганта, он тоже юморист-самородок.