Форум программистов, компьютерный форум, киберфорум
Наши страницы
Batch (CMD/BAT)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Елайс
1 / 1 / 1
Регистрация: 26.09.2014
Сообщений: 55
1

Нужен батник для сканирования сетевой папки

16.10.2014, 19:22. Просмотров 1223. Ответов 5
Метки нет (Все метки)

1 .Нужен батник, для копирование сетевой папки \\server\с:\test\updates на \\cliet\d:\updates
2. батник с перво сканировал сетевую папку (\\server\с:\test\updates) , если там сетевом папке имеются файл, сравнил файлом (\\cliet\d:\updates )
3. Если файлы похожи ничего не делает, если файлы отличается, удаляет старые файлы (\\cliet\d:\updates) и начинает копировать новые файлы из сетевой папки (\\server\с:\test\updates)
4. и батник работал не прерывно, сканировал постоянно наличие нового файла.

возможно ли создать такой батник?
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.10.2014, 19:22
Ответы с готовыми решениями:

Нужен батник для сканирования папок и записи результатов в файл HTML (hypertext)
Прошу помочь в такой проблеме: Есть набор папок, в каждой из которых...

Нужен батник для отключения/включения сетевой карты или подключения Server 2008 R2
Доброго дня всем. Форум читал но ничего не нашел, либо как то не понятно для...

Батник для удаления файлов из папки с фильтром
Привет всем! Столкнулся с таким вопросом. Нужно написать для удобства...

Батник для удаления папки перед загрузкой windows 7
нужен батник для удаления папки перед загрузкой windows7 нужны такие...

Надо создать батник для копирования папки в папку с заменой
Помогите создать BAT для копирования папки в папку с заменой Есть Папка1 и...

5
magirus
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
27967 / 15693 / 960
Регистрация: 15.09.2009
Сообщений: 67,824
Записей в блоге: 78
16.10.2014, 20:18 2
возможно. только нахрена?
0
Серж_87
1294 / 500 / 63
Регистрация: 09.08.2012
Сообщений: 2,056
16.10.2014, 21:47 3
Цитата Сообщение от Елайс Посмотреть сообщение
работал не прерывно
батник когда работает черный экран на мониторе. Разве кому то будет приятно непрерывно смотреть на него? Я бы сделал программу .exe и в трей свернул, пусть там крутится себе никого не трогая - проверяет->сравнивает->заменяет и так в цикле до бесконечности
0
Dragokas
Эксперт WindowsАвтор FAQ
17055 / 7110 / 861
Регистрация: 25.12.2011
Сообщений: 10,920
Записей в блоге: 16
16.10.2014, 23:56 4
Спрашивали про одно, а ответили про другое ))

Можно сделать на VBS отслеживание события изменения файлов.
И проц. не будет кушать, и окно будет скрытое.

Вот так будет для одного файла.

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Option Explicit
Dim sComputer, sFullName, sDrive, sPath, relPath, sExt, sBaseName, oFSO, oWMI, oEvents, oLastEvent, sSavedLog, oFile
 
sFullName = "h:\_C++\1.txt"
sSavedLog = "h:\_C++\Saved.txt"
sComputer = "."
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
sDrive    = oFSO.GetDriveName(sFullName)
sDrive    = Left(sDrive, 1)
sPath     = oFSO.GetParentFolderName(sFullName)
relPath   = "\\" & Mid(sPath, 4) & "\\"
sExt      = oFSO.GetExtensionName(sFullName)
sBaseName = oFSO.GetBaseName(sFullName)
 
Set oFile = oFSO.GetFile(sFullName)
 
Set oWMI = GetObject("winmgmts:\\" & sComputer & "\root\cimv2")
Set oEvents = oWMI.ExecNotificationQuery _
  ("SELECT * FROM __InstanceOperationEvent WITHIN 1 WHERE " _
  & "TargetInstance ISA 'CIM_DataFile' AND " _
  & "TargetInstance.Drive='"       & sDrive & ":' AND " _
  & "TargetInstance.Path = '"      & relPath & "' AND " _
  & "TargetInstance.FileName = '"  & sBaseName & "' AND " _
  & "TargetInstance.Extension = '" & sExt & "' ")
 
msgbox "Начинается мониторинг... Нажмите ОК."
 
Do
  Set oLastEvent = oEvents.NextEvent()
  With oLastEvent
    if .Path_.Class = "__InstanceModificationEvent" or .Path_.Class = "__InstanceCreationEvent" then
        If .TargetInstance.LastModified <> .PreviousInstance.LastModified Then
            if oFile.Size <> 0 then
                oFile.Copy sSavedLog, true
            end if
        End If
    end if
  End With
Loop
 
Set oWMI = Nothing: Set oEvents = Nothing: Set oLastEvent = Nothing: Set oFile = nothing


Для пути по локалке нужно тестить. На работе попробую.
0
Елайс
1 / 1 / 1
Регистрация: 26.09.2014
Сообщений: 55
15.01.2015, 10:20  [ТС] 5
спасибо
0
raxp
10188 / 6571 / 492
Регистрация: 28.12.2010
Сообщений: 21,166
Записей в блоге: 1
15.01.2015, 12:35 6
Я бы сделал программу .exe и в трей свернул
окно консоли можно вынести как за пределы экрана, так и запустить окно в скрытом режиме через CreateObject("Wscript.Shell").Run, либо не извращаться, а сразу писать в VBS.
0
15.01.2015, 12:35
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.01.2015, 12:35

Очень Нужен батник для переименнованиЯ!
Здравствуйте, помогите пж, после востановления компа были переименованы группа...

Нужен батник для открытия нескольких URL
Здравствуйте. Нужно открыть несколько окон, а лучше вкладок браузера, с...

Скрипт для создания сетевой папки
Добрый день. Очень нужна ваша помощь!!! Не могу разобраться с такой проблемой: ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru