Скрипт предназначен для копирования файлов с установленным архивным битом. В целевом каталоге создается подкаталог с текущей датой. При копировании архивный бит с файлов снимается. Скрипт не обрабатывает вложенные папки. Результат работы логируется в указанный лог-файл.
'---------------------------------------------------------------------- ' ' Copyright (c) All rights reserved. ' ' ' AUTHOR: tudimon.com ' DATE: 03.04.2012 ' NAME: copy_archive_files_v1.vbs ' ' COMMENT: ' ' Копирование файлов с установленным архивным битом в указанную папку в которой ' создается папка с текущей датой ' ' При копировании бит сбрасывается - тем самым указывается, что файл был скопирован. ' При изменении файла архивный бит удет установлен - тем самым указывается, что ' файл нужно копировать при архивировании. ' ' '----------------------------------------------------------------------
' Задаваемые параметры для работы скипта
SourceFolder = "C:\Downloads" ' Папка с файлами для архиврования DestinationFolder = "C:\backup" ' Папка для архивных копий
LogFilePath = "c:\log.log" ' лог-файл LogTXT = "" ' переменная для записи в лог
' создадим DestinationFolder если он не существует Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FolderExists(DestinationFolder) Then Set objFolder = objFSO.GetFolder(DestinationFolder) LogTXT = LogTXT & vbNewLine & "Destination Folder " & DestinationFolder & " already exists" & vbNewLine Else Set objFolder = objFSO.CreateFolder(DestinationFolder) LogTXT = LogTXT & vbNewLine & "Destination Folder " & DestinationFolder & " created now" & vbNewLine End If Set objFSO = Nothing
' бэкап Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(SourceFolder) Set colFiles = objFolder.Files For Each objFiles in colFiles
If objFiles.Attributes and 32 Then ' архивный бит установлен, то копируем objFSO.CopyFile objFiles.Path, DestinationFolder & "\" & objFiles.Name
Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь. Чтобы Вам были доступны все функции Вам необходимо либо зарегистрироваться, либо зайти на сайт под своим именем.