텍스트 비교

두 텍스트 파일의 차이점을 찾아보세요

실시간 편집

변경 없는 행 숨기기

줄바꿈 비활성화

레이아웃

비교 단위

구문 강조

Diffchecker Desktop 가장 안전하게 Diffchecker를 사용하는 방법. 데스크톱 앱을 사용하면 비교 데이터가 외부로 전송되지 않습니다!데스크톱 앱 받기

Untitled diff

생성일 7년 전비교 결과 만료 없음

34 삭제

행
총
삭제

글자
총
삭제

이 기능을 계속 사용하려면 업그레이드해 주세요 Diffchecker Pro 요금제 보기

73 행

32 추가

행
총
추가

글자
총
추가

이 기능을 계속 사용하려면 업그레이드해 주세요 Diffchecker Pro 요금제 보기

73 행

Sub FileList()

Dim V As String

Dim BrowseFolder As String

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

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

With Application.FileDialog(msoFileDialogFolderPicker)

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

.Title = "Оберіть папку/диск"

.Show

On Error Resume Next

Err.Clear

V = .SelectedItems(1)

If Err.Number <> 0 Then

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

MsgBox "Нічого не обрано!"

Exit Sub

End If

End With

BrowseFolder = CStr(V)

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

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

ActiveWorkbook.Sheets.Add

Sheets("Information").Select

Worksheets("Information").Range("A1:E" & Range("A65536").End(xlUp).Row).ClearContents

With Range("A1:E1")

.Font.Bold = True

.Font.Size = 12

End With

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

Range("A1").Value = "ім'я файлу"

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

Range("B1").Value = "розташування"

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

Range("C1").Value = "розмір"

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

Range("D1").Value = "дата створення"

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

Range("E1").Value = "дата зміни"

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

'вызов процедуры вывода списка, если надо - true

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

ListFilesInFolder BrowseFolder, False

ListFilesInFolder BrowseFolder, True

End Sub

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

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 'находим первую пустую строку

r = Range("A65536").End(xlUp).Row + 1 'находиим 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

X = Source.Folder.Path

Next FileItem

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

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

If IncludeSubfolders Then

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

저장된 비교 결과

원본

파일 열기

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

수정본

파일 열기

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)
    
    'добавляем лист и выводим в него шапку таблицы
    Sheets("Information").Select
    Worksheets("Information").Range("A1:E" & Range("A65536").End(xlUp).Row).ClearContents
    
    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
    ListFilesInFolder BrowseFolder, False
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 'находиим 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 = Source.Folder.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