Стихи к дню рождения

http://www.bugaga.ru/pozdravlenya/thisday/1146758665-pozdravleniya-ko-dnyu-buhgaltera-v-stihah.html

TV android

https://androidinsider.ru/obzory-prilozhenij/kak-smotret-televizor-na-android-sovershenno-besplatno.html

Стихи

http://www.bugaga.ru/pozdravlenya/happy-birthday/1146758664-pozdravlenie-luchshey-podruge-na-den-rozhdeniya.html

Ускорение андроида

Список файлов в папке

источник https://www.planetaexcel.ru/techniques/3/45/

Sub FileList()

    Dim V As String

    Dim BrowseFolder As String

     

    'открываем диалоговое окно выбора папки

    With Application.FileDialog(msoFileDialogFolderPicker)

        .Title = "Выберите папку или диск"

        .Show

        On Error Resume Next

        Err.Clear

        V = .SelectedItems(1)

        If Err.Number <> 0 Then

            MsgBox "Вы ничего не выбрали!"

            Exit Sub

        End If

    End With

    BrowseFolder = CStr(V)

     

    'добавляем лист и выводим на него шапку таблицы

    ActiveWorkbook.Sheets.Add

    With Range("A1:E1")

        .Font.Bold = True

        .Font.Size = 12

    End With

    Range("A1").Value = "Имя файла"

    Range("B1").Value = "Путь"

    Range("C1").Value = "Размер"

    Range("D1").Value = "Дата создания"

    Range("E1").Value = "Дата изменения"

     

    'вызываем процедуру вывода списка файлов

    'измените True на False, если не нужно выводить файлы из вложенных папок

    ListFilesInFolder BrowseFolder, True

End Sub

Private Sub ListFilesInFolder(ByVal SourceFolderName As String, ByVal IncludeSubfolders As Boolean)

    Dim FSO As Object

    Dim SourceFolder As Object

    Dim SubFolder As Object

    Dim FileItem As Object

    Dim r As Long

    Set FSO = CreateObject("Scripting.FileSystemObject")

    Set SourceFolder = FSO.getfolder(SourceFolderName)

    r = Range("A65536").End(xlUp).Row + 1   'находим первую пустую строку

    'выводим данные по файлу

    For Each FileItem In SourceFolder.Files

        Cells(r, 1).Formula = FileItem.Name

        Cells(r, 2).Formula = FileItem.Path

        Cells(r, 3).Formula = FileItem.Size

        Cells(r, 4).Formula = FileItem.DateCreated

        Cells(r, 5).Formula = FileItem.DateLastModified

        r = r + 1

        X = SourceFolder.Path

    Next FileItem

     

    'вызываем процедуру повторно для каждой вложенной папки

    If IncludeSubfolders Then

        For Each SubFolder In SourceFolder.SubFolders

            ListFilesInFolder SubFolder.Path, True

        Next SubFolder

    End If

    Columns("A:E").AutoFit

    Set FileItem = Nothing

    Set SourceFolder = Nothing

    Set FSO = Nothing

End Sub



Если захотите, чтобы вместо пути к файлу в столбце B выводилась живая гиперссылка, то замените 52-ю строку
Cells(r, 2).Formula = FileItem.Path
на
Cells(r, 2).Formula = "=HYPERLINK(""" & FileItem.Path & """)"

Etcher — бесплатная мультиплатформенная программа для создания загрузочной флешки

Использование Etcher для создания загрузочного USB из образа

Несмотря на отсутствие русского языка интерфейса в программе, уверен, ни у кого из пользователей не возникнет вопросов о том, как записать загрузочную флешку в Etcher. Однако, есть некоторые нюансы (они же недостатки) и, прежде чем приступать, рекомендую прочесть о них.

Для того, чтобы создать загрузочную флешку в Etcher потребуется установочный образ, причем список поддерживаемых форматов приятен — это и ISO, BIN, DMG, DSK и другие. К примеру, вы, возможно, сможете создать загрузочную флешку MacOS в Windows (не опробовал, отзывов не нашел) и точно сможете записать установочный накопитель Linux из MacOS или любой другой ОС (привожу эти варианты, так как с ними часто возникают сложности).

А вот с образами Windows, к сожалению, у программы плохо — мне не удалось нормально записать ни один из них, в результате процесс проходит успешно, но в итоге получается флешка RAW, загрузиться с которой нельзя.

Порядок действий после запуска программы будет следующим:

1. Нажмите кнопку «Select Image» и укажите путь к образу. 
2. Если после выбора образа программа вам покажет одно из окон на скриншоте ниже, вероятнее всего, успешно записать его не удастся, либо после записи не будет возможности загрузиться с созданной флешки. Если таких сообщений нет, видимо, всё в порядке. 
3. При необходимости изменить накопитель, на который будет производиться запись, нажмите Change под значком диска и выберите другой диск.
4. Нажмите кнопку «Flash!», чтобы начать запись. Учтите, что имеющиеся на накопителе данные будут удалены. 
5. Дождитесь завершения записи и проверки записанной флешки. 

Как итог: с записью образов Linux у программы всё в порядке — они успешно пишутся и работают из-под Windows, MacOS и Linux. Образы Windows на текущий момент записать не удается (но, не исключаю, что в будущем такая возможность появиться). Запись MacOS не пробовал.

Также есть отзывы о том, что программа повредила флешку (в моем тесте — только лишала файловой системы, что решалось простым форматированием).

Скачать Etcher для всех популярных ОС можно бесплатно с официального сайта https://etcher.io/