Сделать стартовойДобавить в закладки  
Главная страничка Главная страничка
В номере:

    Выходит с 17 июля 2008 г. цена договорная

    Опрос

    конечно, он настанет в 2012 г.
    да, но не в 2012 г.
    нет, это фантастика
    а что такое конец света
    а мне пофиг - я буду уже мертв



    Календарь
    «    Апрель 2012    »
    ПнВтСрЧтПтСбВс
     1
    2345678
    9101112131415
    16171819202122
    23242526272829
    30 

    Архив новостей
    Август 2021 (1)
    Июль 2021 (3)
    Февраль 2021 (3)
    Январь 2021 (1)
    Ноябрь 2020 (2)
    Июль 2020 (2)

    Информация
    Скрипт копирования файлов с установленным архивным битом в резервный каталог
    OS, мобильные OS » Windows » WSH скрипты
    автор: dimon, опубликовано: 3 апреля 2012

    Скрипт предназначен для копирования файлов с установленным архивным битом. В целевом каталоге создается подкаталог с текущей датой. При копировании архивный бит с файлов снимается. Скрипт не обрабатывает вложенные папки. Результат работы логируется в указанный лог-файл.

    '----------------------------------------------------------------------
    '
    ' 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 = DestinationFolder & "\" & Year(now) & Right("00" & CStr(Month(Now)), 2) & Right("00" & CStr(Day(Now)), 2)

    LogTXT = LogTXT & vbNewLine & "******************** " & Now & " ********************"

    LogTXT = LogTXT & vbNewLine & "Destination Folder is " & DestinationFolder & vbNewLine

    ' создадим 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
            
            ' 2log
            LogTXT = LogTXT & vbNewLine & objFiles.Path & " copy done"
            
            ' снимем архивный бит
            objFiles.Attributes = objFiles.attributes - 32
            
        End If

    Next


    ' Пишем лог
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set LogFile = FSO.OpenTextFile(LogFilePath, 8, True)
    LogTXT = LogTXT & vbNewLine & "*************************************************************"
    LogFile.WriteLine LogTXT
    LogFile.Close

    Set FSO = Nothing
    Set objFSO = Nothing

    WScript.Quit 0


    copy_archive_files_v1.rar [2,11 Kb] (cкачиваний: 51)

     
    Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь. Чтобы Вам были доступны все функции Вам необходимо либо зарегистрироваться, либо зайти на сайт под своим именем.

    Другие новости по теме:

  • Рекурсивный список подкатологов и файлов в текстовый лог
  • Скрипт через psexec.exe монтирует на удаленном компьютере том TrueCrypt, ко ...
  • Список файлов в каталоге в текстовый файл
  • Перенос приложений на SD карту в ОС Android
  • Простенький трёхколонный резиновый макет на div-ах


  • Комментарии:

    Оставить комментарий



     
    Информация
     
    Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.


    Поиск по сайту:


    Облако тегов
    Arduino, backup, CentOS, cmd, div, DLE, DLE хаки, domoticz, dzvents, event, Home Assistant, Linux, log, LUA, Monster, ogf3, RDP, Template, VBS, windows, WSH, xiaomi, бумага, бумажный самолетик, верстка, иструкция, Карты, кино, Навигация, оригами, программа, рецензия, рецепт, скрипт, уведомления, фигуры, шаблон, Яндекс, яндекс-карты

    Показать все теги
    Реклама
    раскрутка сайта бесплатно
    Главная страница | Регистрация | Добавить новость | Новое на сайте | Статистика | Поддержка | Правила ресурса Copyright © 2005-2021 by dimon - all right reserved!
    Тираж:           экземпляров.   Дизайн, верстка by dimon