Код:
InitialFolder = "\\SERVER\FOLDER"
TargetFolder = "C:\FOLDER"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShellApp = CreateObject("Shell.Application")
CopyFiles InitialFolder
Sub CopyFiles(FolderPath)
Set objFolderItems = objShellApp.NameSpace(FolderPath).Items()
For Each objFolderItem In objFolderItems
If objFolderItem.IsFolder And LCase(Right(objFolderItem.Name, 4)) <> ".zip" Then
CopyFiles objFolderItem.Path
Else
Set objFile = objFSO.GetFile(objFolderItem.Path)
Информация, размещенная на этой интернет страничке не претендует на авторство. Она собрана из различных источников и интересна прежде всего автору странички. Использование информации и знаний полученных с данной странички лежит на использующем эти знания.