Sub FileHandling(folder)
Dim cnt, file, ObjWord
Set ObjWord = CreateObject("Word.Application")
' ObjWord.Visible = True ' Debug
For Each file In folder.Files
If "docx" = LCase(fso.GetExtensionName(file)) Then
With ObjWord.Documents.Open(file.Path)
' Do Something... '
.Close False
End With: cnt = cnt + 1
End If
Next
ObjWord.Quit: Set ObjWord = Nothing
End Sub
Dim fso, folder
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(fso.GetAbsolutePathName(".")) ' Current folder '
FileHandling(folder)
Set fso = Nothing
Торрент- это протокол, владельцы клиентов имеют деньги от продажи или рекламы.Есть энтузиасты, которые и её выпиливают Какой торрент клиент посоветуете вместо uTorrent?