User login

Kопирование файлов

Код:

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)

Внимание

Информация, размещенная на этой интернет страничке не претендует на авторство. Она собрана из различных источников и интересна прежде всего автору странички. Использование информации и знаний полученных с данной странички лежит на использующем эти знания.

Syndicate content