Option Explicit

' Имя процедуры: Form_Load
'
' Описание: открывает файлы с одним расширением из директории и затем меняеет в них 1252 на 1251
'
Private Sub Form_Load()
    Dim strFileName As String
    Dim fsn As New FileSystemObject
    Dim fol As Folder
    Dim fls As Files
    Dim fl As File
    Dim intPos As Integer
    Dim ORD, MyLine, MyNewLine
    Dim Text() As String
    Dim i As Integer
    Dim j As Integer
    
    ReDim Text( 0 )
    CommonDialog1.ShowOpen
    strFileName = CommonDialog1.FileName
    If strFileName = "" Then
        Label1.Caption = "Обрабатываемый объект не выбран !"
        Exit Sub
    End If
    strFileName = Mid(strFileName,  1 , InStrRev(strFileName, "\"))
    MyLine = "Windows-1252"
'=================================
    Set fol = fsn.GetFolder(strFileName)
    Set fls = fol.Files     'для каждого нужного файла
    For Each fl In fls
        i =  0 
        If fl.Name Like "*.html" Then
'=================================
            Open fl For Input As  1 
            Do While Not EOF( 1 )                              'открываем, читаем, закрываем
                i = i +  1 
                ReDim Preserve Text(i)
                Line Input # 1 , Text(i)
            Loop
            j = i
            Close # 1 
'================================
            Open fl For Output As  1                               'открываем, записываем, закрываем
            For i =  1  To j
                If InStr( 1 , Text(i), MyLine) >  0  Then Text(i) = Replace(Text (i), "1252", "1251", , , vbTextCompare) ' замена
                Print # 1 , Text(i)
            Next
            Close # 1 
'================================
        End If
    Next
End Sub