Все технические форумы на одном сайте Удобный поиск информации с популярных форумов в одном месте
Вопрос: Копирование файлов с определёнными расширениями

Копирование файлов с определенным расширением.
Поле ввода расширения (cpp, pas).

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
Dim objFSO, objFile, strEXT
Dim strSource, strDest
Dim lngAttributes
 
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
 
strEXT = "cpp"
strEXT = "pas"
strSource = "C:\1"
strDest   = "C:\2"
 
If objFSO.FolderExists(strSource) Then
If objFSO.FolderExists(strDest) Then
            
For Each objFile In objFSO.GetExtensionName(objFile.Path)
If (objFile.Path)=strEXT Then
WScript.Echo objFile.Name
objFile.Copy objFSO.BuildPath(strDest, objFile.Name), True
End If
Next
End If
End If
Set objFSO = Nothing
WScript.Quit 0
надо как то сделать чтобы при вводе одного расширения выполнялась процедура копирования всех файлов с таким расширением в другой каталог...какую процедуру вставить ума не приложу((( помогите пожалуйста...
Ответ: еще вариант на 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
'Копирование файлов с определенным расширением
 
Exts = "*.3gp;*.asf;*.avi; *.mkv; *.mov;*.mp4;*.mpg;*.wmv;*.vob"
 
input="c:\00"        'откуда
output= "c:\000"     'куда
 
 
Set Shell = CreateObject("Shell.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WSHShell = WScript.CreateObject("WScript.Shell")
 
 
If not objFSO.FolderExists(output) Then objFSO.CreateFolder output          'создаем output
 
Perenos input,output, Exts                  ' Копирование файлов с input в output
 
 
Sub Perenos(Folder, Folder2, Exts)
  Set objFolder = Shell.NameSpace(Folder)
  Set objItems  = objFolder.Items
  objItems.Filter 192, Exts
  For Each File in objItems
 
 objFSO.CopyFile File.Path, Folder2         
 
  Next 
End Sub
Вопрос: Копирование файлов с определёнными расширениями на сервер

Доброго времени суток, пытаюсь сделать скрипит копирования файлов по разрешениям на сервер я VBS изучать начал неделю назад и никак не могу понять, в чем я ошибся. Ошибка в 23 строчке подскажите, пожалуйста, что неправильно.

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
Option Explicit
Dim outFolder: outFolder = "C:\update"
Dim inFolder: inFolder = "\\server\"
Dim oFSO: Set oFSO = CreateObject("Scripting.FileSystemObject")
Dim WSNetwork: Set WSNetwork = CreateObject("WScript.Network")
 
If oFSO.FolderExists(outFolder) AND oFSO.FolderExists(inFolder) Then
  CopyFileOnMask outFolder, "exe txt rar" ' каталог и маски файлов для удаления
  WScript.Echo "Готово."
Else
  WScript.Echo "Не найден один из путей " & outFolder & " " & "ИЛИ" & " " & inFolder
End If
WScript.Quit(0)
 
Function CopyFileOnMask(s, sMask)
  Dim oFld, arrMask, v, i
  Set oFld = oFSO.GetFolder(s)
  arrMask = Split(LCase(sMask), " ")
  For Each v In oFld.Files
    For i = LBound(arrMask) To UBound(arrMask)
      If LCase(oFSO.GetExtensionName(s & "\" & v.Name)) = arrMask(i) Then
        oFSO.CopyFile v, inFolder, True
        Exit For
      End If
    Next
  Next
End Function
Добавлено через 24 минуты
Немного переделал функцию наверное так правильнее
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function CopyFileOnMask(s, sMask)
  Dim oFld, iFld, arrMask, v, i
  Set oFld = oFSO.GetFolder(s)
  Set iFld = oFSO.GetFolder(inFolder)
  arrMask = Split(LCase(sMask), " ")
  For Each v In oFld.Files
    For i = LBound(arrMask) To UBound(arrMask)
      If LCase(oFSO.GetExtensionName(s & "\" & v.Name)) = arrMask(i) Then
        v.Copy (inFolder), True
        Exit For
      End If
    Next
  Next
End Function
Хотя все равно не помогло к сожалению
Ответ: Добрый день.
Помогите пожалуйста разобраться.

Скачала скрипт на сайте-

Я его немного хочу переделать.
Добавила условие- по типам файлов
В итоге из папки назначения- копируются только нужные файлы, а во вложенных папках- все типы файлов.
Помогите пожалуйста разобраться, в чём дело.

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
' ========== Script Information  ==========
' script name:   Fail_Copying
' version:       1.0
' date:          14.08.12
' autor:         MasterLin
' site:          [url]http://www.masterlin.ru[/url]
' description:   Скрипт копирует файлы, папки и подпапки с одного источника на несколько, в сети или локально (рассылка файлов). 
' При этом происходит проверка на наличие, доступность и время создания файлов. При отсутствии, либо старой версии файла
' происходит его копирование и замена на более новый.
 
'***********************************************
' Создание объектов оболочки и файловой системы 
 
Set oShell = CreateObject("wscript.shell")
Set oFSO = CreateObject("Scripting.Filesystemobject")
Set WSNetwork = CreateObject("WScript.Network")
LogFolder = "f:\BackUp\2016\1" ' место расположения лог-файла
StartFolder = "f:\BackUp\2016\2" ' откуда копируем
aEndFolder = array("f:\BackUp\2016\1") ' куда копируем
 
' мой вариант
sMask= "txt doc docx xls"
Dim arrMask
'array("\\user1\1","\\user2\1") ' куда копируем 2 адреса 
arrMask = Split(LCase(sMask), " ")
' конец моего варианта
'***********************************************
' обнуление и описание счетчиков, используемых в скрипте
num_EndFolder = 0       '- общее число папок, места назначения для копируемых данных
num_EndFolder_0 = 0     '- не доступное кол-во папок из  num_EndFolder
num_files = 0           '- общее число обработанных файлов
num_files_copy = 0      '- из них скопировано с заменой на новую версию
err_files_copy = 0      '- из них не скопировано в результате ошибки при работе с num_files_copy
num_files_new = 0       '- из них скопировано новых файлов
err_files_new = 0       '- из них не скопировано в результате ошибки при работе с num_files_new
num_SubFolder = 0       '- обработано папок и подпапок
num_SubFolder_copy = 0  '- из них скопировано новых папок и подпапок
err_SubFolder = 0       '- из них не скопировано в результате ошибки при работе с num_SubFolder
 
'***********************************************
' Создание лог-файла
' Задаем имя лога
sLogName = "LogTemp_" & Date & "_" & Time
' Заменяем в имени все знаки на подчеркивания
sLogName = Replace(sLogName, ".", "_")
sLogName = Replace(sLogName, ":", "_")
sLogName = LogFolder & sLogName
' Создаем файл
Set oLogFile = oFSO.CreateTextFile(sLogName & ".log",true)
oLogFile.WriteLine "========== Script Information  ==========" & vbCrLf
oLogFile.WriteLine "script name:   Fail_Copying"
oLogFile.WriteLine "version:       1.0"
oLogFile.WriteLine "date:          10.08.12"
oLogFile.WriteLine "autor:         MasterLin"
oLogFile.WriteLine "site:          http://www.masterlin.ru" & vbCrLf
oLogFile.WriteLine "========== Запуск скрипта ==========" & vbCrLf
 
'***********************************************
 
Set oEndFolder = CreateObject("Scripting.FileSystemObject")
' Цикл для перебора папок "куда копируем"
For i=0 to UBound (aEndFolder)
' Счетчик кол-ва папок для копируемых данных
num_EndFolder=num_EndFolder+1
' Проверяем доступность папки, в которую хотим произвести копирование
If oEndFolder.FolderExists ( aEndFolder(i) ) Then 
    ' Записываем результат в лог
    oLogFile.Writeline "Папка " & "'" & aEndFolder(i) & "'" & " доступна для работы" & vbCrLf
    CopyFolder StartFolder,aEndFolder(i),"txt doc docx xls"
    ' Счетчик доступных для копирования папок
    ' удолил :)     
else
    ' Записываем результат в лог
    oLogFile.Writeline
    oLogFile.Writeline "Папка " & "'" & aEndFolder(i) & "'" & " в настоящий момент не доступна. Работа с ней прекращена." & vbCrLf
    ' Дублируем сообщение, выводом предупреждения на экран
    WScript.Echo "Папка " & "'" & aEndFolder(i) & "'" & " в настоящий момент не доступна. Работа с ней прекращена."
    ' Счетчик недоступных для копирования папок
    num_EndFolder_0=num_EndFolder_0+1
End if 'oEndFolder.FolderExists ( aEndFolder(i) ) Then 
Next
oLogFile.WriteLine "========== Отчет о копировании ==========" & vbCrLf
oLogFile.WriteLine "Было задано " & num_EndFolder & " папок, для копирования в них данных." 
oLogFile.WriteLine "Часть папок оказалась не доступна - " & num_EndFolder_0 & " шт. (см.логи выше)"
oLogFile.WriteLine "Скриптом было обработано - " & num_files & " файлов."
oLogFile.WriteLine "Из них скопировано с заменой - " & num_files_copy & " шт., не скопировано в результате ошибки - " & err_files_copy & " шт."
oLogFile.WriteLine "Из них скопировано новых файлов - " & num_files_new & " шт., не скопировано в результате ошибки - " & err_files_new & " шт."
oLogFile.WriteLine "Скриптом было обработано - " & num_SubFolder & " подпапок."
oLogFile.WriteLine "Из них скопировано новых подпапок - " & num_SubFolder_copy & " шт., не скопировано в результате ошибки - " & err_SubFolder & " шт."
oLogFile.WriteLine
oLogFile.WriteLine "========== Выполнение скрипта завершено ==========" & vbCrLf
WScript.Echo "Выполнение скрипта завершено."
 
WScript.Echo "Выполнение скрипта завершено."
 
'***********************************************************************************
Sub CopyFolder(sCopyFolder,sEndCopyFolder,sMask)
Dim a
' Создание объекта Folder
Set oFolder = oFSO.GetFolder(sCopyFolder) 'откуда 
Set oEndCopyFolder = oFSO.GetFolder(sEndCopyFolder)'куда
' Получение коллекции файлов
Set colFiles = oFolder.Files
 'WScript.Echo colFiles
 
 
' Обработка каждого файла из коллекции
For each oFile in colFiles
        wscript.Echo oFile.Name
' мой вариант
    ' цикл по массиву расширений (моё)
        For a = LBound(arrMask) To UBound(arrMask)
            If (LCase(oFSO.GetExtensionName(oFile.Name)) = arrMask(a)) Then
' конец моего варианта
            oLogFile.Writeline "Дата создания копируемого файла:"
            oLogFile.Writeline oFile & vbTab & oFile.DateCreated
            ' Счетчик числа проверяемых файлов
            num_files=num_files+1
            ' Проверяем существует уже такой файл в папке, если его нет, то копируем. 
            ' Если есть, то проверяем его актуальность и заменяем более новым, если он устарел.
            
            
            
            If oFSO.FileExists(oFSO.BuildPath(oEndCopyFolder, oFile.Name)) Then 
                'wscript.Echo oFSO.GetExtensionName(oFile)
                'wscript.Echo arrMask(a)
                ' Записываем результат в лог
                oLogFile.Writeline "Такой файл уже существует в папке " & oEndCopyFolder
                ' Проверяем насколько это свежая копия файла, для этого сравниваем даты создания двух файлов
                oLogFile.Writeline "Проверяем актуальность копии:"
                ' Выгружаем полный путь к проверяемому файлу
                sFileEnd = oFSO.BuildPath(oEndCopyFolder, oFile.Name)
                ' Создаем объект File, для работы с этим файлом
                    Set oFileEnd = oFSO.GetFile(sFileEnd)
                    ' Сравниваем даты изменения файлов 
                    If oFileEnd.DateLastModified < oFile.DateLastModified Then
                        ' Проверяемый файл оказался устаревшим, поэтому заменяем его более новым
                        oLogFile.Writeline "Копия файла устарела, заменяем его новым.     **********" & vbCrLf
                        oFSO.CopyFile oFile, sEndCopyFolder & oFile.Name, True
                        ' Проверка на наличие ошибок
                        if err.Number <> 0 then
                            ' Запись сообщения об ошибке в лог
                            oLogFile.Writeline "-----> Error # " & CStr(Err.Number) & " " & Err.Description
                            ' Очистка ошибки
                            Err.Clear
                            ' Счетчик ошибок при замене файлов
                            err_files_copy=err_files_copy+1
                        else
                            ' Счетчик файлов, которые были заменены на новые
                            num_files_copy=num_files_copy+1             
                        End if 'err.Number <> 0 then
                    else
                        ' В этом случае копия прошла проверку, просто продолжаем работу скрипта далее
                        oLogFile.Writeline "Копия актуальна. Продолжаем работу." & vbCrLf
                    End if 'oFileEnd.DateLastModified < oFile.DateLastModified Then
            
            else
            
                ' Записываем результат в лог
                oLogFile.Writeline "Этот файл отсутствует в папке " & oEndCopyFolder & " Давайка его скопируем." & vbCrLf
                oFSO.CopyFile oFile, sEndCopyFolder & oFile.Name, True
                ' Проверка на наличие ошибок
                if err.Number <> 0 then
                    ' Запись сообщения об ошибке в лог
                    oLogFile.Writeline "-----> Error # " & CStr(Err.Number) & " " & Err.Description
                    ' Очистка ошибки
                    Err.Clear
                    ' Счетчик ошибок при копировании новых файлов
                    err_files_new=err_files_copy+1
                else
                    ' Счетчик новых скопированных файлов
                    num_files_new=num_files_copy+1              
                End if 'err.Number <> 0 then
            
           End if 'oFSO.FileExists(oFSO.BuildPath(oEndCopyFolder, oFile.Name)) Then 
        End if '(LCase(oFSO.GetExtensionName(oFile)) = "TXT" Or LCase(oFSO.GetExtensionName(oFile)) = "xls") Then
Next
 
Next
 
' ********************************************************************************* 
 
' Проверяем все папки и подпапки
oLogFile.Writeline "Обрабатываем и копируем все подпапки из папки " & oEndCopyFolder & vbCrLf
' Получение коллекции подпапок
Set colSubFolders = oFolder.SubFolders
 
' Обработка каждой подпапки
For Each oSubFolder In colSubFolders
oLogFile.Writeline "Проверяем подпапку " & oSubFolder
    ' Счетчик обработанных папок и подпапок
    num_SubFolder=num_SubFolder+1   
    ' Проверяем существует уже такая подпапка в папке, если ее нет, то копируем. 
    ' Если есть, то переходим к проверке файлов в подпапке.
        If oFSO.FolderExists(oFSO.BuildPath(oEndCopyFolder, oFSO.GetBaseName(oSubFolder.Path))) Then
        
        ' Записываем результат в лог
            oLogFile.Writeline "Такая подпапка уже существует в папке " & oEndCopyFolder
            oLogFile.Writeline "Проверяем все файлы в этой подпапке: "
            ' Выгружаем полный путь к проверяемоой подпапке
            sSubFolderEnd = oFSO.BuildPath(oEndCopyFolder, oFSO.GetBaseName(oSubFolder.Path)) & "" 
            ' Производим рекурсивный вызов процедуры копирования файлов - программа вызывает сама себя
            
            CopyFolder oSubFolder, sSubFolderEnd, "txt doc docx xls"            
            ' oLogFile.Writeline
        else
            ' Записываем результат в лог            
            oLogFile.Writeline "Эта подпапка отсутствует в папке " & oEndCopyFolder & " Давайка ее скопируем." & vbCrLf
            oFSO.CopyFolder oSubFolder, sEndCopyFolder, True
            ' Проверка на наличие ошибок
            if err.Number <> 0 then
                ' Запись сообщения об ошибке в лог
                oLogFile.Writeline "-----> Error # " & CStr(Err.Number) & " " & Err.Description
                ' Очистка ошибки
                Err.Clear
                ' Счетчик ошибок при копировании новых папок и подпапок
                err_SubFolder=err_SubFolder+1
            else
                ' Счетчик новых скопированных папок и подпапок
                num_SubFolder_copy=num_SubFolder_copy+1         
            End if 'err.Number <> 0 then
            
        End if  
    
Next
End Sub
'***********************************************

Объясните пожалуйста, как скопировать только файлы, с выбранным расширением во вложенных папках.
Вопрос: Копирование файлов, определяемых маской и путём, в заданное место назначения с их последующим архивированием

Ребята, помогите пожалуйста,

Задание:
Пакетный файл, предназначенный для копирования файлов, определяемых маской и путем, в заданное место назначения с их последующим архивированием. Архивирование осуществляется с помощью доступного в системе архиватора (например, Wi-nRar), вызов которого осуществляется непосредственно из пакетного файла. Маска файлов для копирования, полный путь расположения и путь к месту назначения задаются в качестве пакетных параметров. В конце выводится сообщение вида «Копирование файлов из каталога <путь> в каталог <путь> завершено. Архивирование скопированных данных завершено».
Ответ:
Windows Batch file
1
2
3
4
5
6
@echo off
if not exist "%~3" dm "%~3"
xcopy "%~1\%~2" "%~3" /y /r>nul && echo Копирование файлов из каталога %~1 в каталог %~3 завершено
REM 7za.exe a -tzip "%~3\files.zip" "%~3\*">nul && echo Архивирование скопированных данных завершено
rar.exe a -ep1 "%~3\files.rar" "%~3\*">nul && echo Архивирование скопированных данных завершено
exit /b

Windows Batch file
script.bat "D:\Directory" "*.dll" "D:\TEMP"
Вопрос: Синий экран и перезагрузка при установке игр и копировании файлов

Здравствуйте.
Не очень давно появилась такая проблема: при установке любой игры комп на время зависает, потом появляется синий экран и сразу же перезагрузка. То же самое стало происходить и при копировании файлов крупного размера. Думал, проблема с ОС, так как уже 4 года была установлена семерка. Установил Windows 8.1. Проблема осталась.
У меня на компе 2 жестких диска. Думал, проблема с одним из них, но и при установке на второй происходит то же самое. Сама винда проблем с жесткими дисками не находит. Диагностировал оперативу внутренними средствами винды, тоже проблем не найдено. Драйвер на видеокарту обновил.
В чем может быть дело?

Конфигурация:
Core 2 Duo E7300
GeForce 9600 GT
4 Гб ОЗУ
Biostar G31-M7 TE
Ответ:
Сообщение от jupiter23
Здравствуйте.
Не очень давно появилась такая проблема: при установке любой игры комп на время зависает, потом появляется синий экран и сразу же перезагрузка. То же самое стало происходить и при копировании файлов крупного размера. Думал, проблема с ОС, так как уже 4 года была установлена семерка. Установил Windows 8.1. Проблема осталась.
У меня на компе 2 жестких диска. Думал, проблема с одним из них, но и при установке на второй происходит то же самое. Сама винда проблем с жесткими дисками не находит. Диагностировал оперативу внутренними средствами винды, тоже проблем не найдено. Драйвер на видеокарту обновил.
В чем может быть дело?

Конфигурация:
Core 2 Duo E7300
GeForce 9600 GT
4 Гб ОЗУ
Biostar G31-M7 TE
Тут был намёк на номер ошибки) Просто по ней хоть как то помочь можно)
Вопрос: Общий доступ определенным пользователям домена

Всем здравствуйте.

Имеется такая конфигурация:
DC сервер (Windows Server 2008 R2) - Доменный сервер в который заведены все учетки пользователей входящих в доменную сеть
Server1C (Widnows 7) - Он так же входит в доменную сеть и на нем лежит БАЗА 1С

Нужно открыть общий доступ к серверу 1С только для бухгалтерии, а для всех остальных, закрыть его.
На сервере 1С открываю общий доступ к папке с базой. Указываю нужных пользователей из доменной сети, то есть отдел бухгалтерии. Группа безопасности для них создана, но с ней почему то не работает. Поэтому пользователи указываются по одному, всего их 4. Имеется 3 группы безопасности (Учителя, Ученики, Администраторы) В настройках общего доступа открываю доступ только для пользователей бухгалтерии, а для групп безопасности Учителя, Ученики закрываю его полностью. (тоже самое проделываю и в расширенных настройках доступа, иначе не работает)

Получается так:
Пользователь 1: Разрешить
Пользователь 2: Разрешить
Пользователь 3: Разрешить
Учителя: Запретить
Ученики: Запретить

После таких манипуляций, доступ к общей папке имеет только отдел бухгалтерии, а остальные нет. Вроде как и все правильно, но я что то сомневаюсь в правильности таких действий. Да и хотелось бы чтобы другие пользователи вообще не имели доступ к серверу, а они могут просматривать список открытых общий папок.

Пробовал создавать группу безопасности для бухгалтерии на DC сервере, как и остальные группы, для упрощения добавления их в список для общих ресурсов. Но почему то при добавлении на общий доступ группы Бухгалтерия, доступ не открылся. gpupdate делал, сервер 1С перезагружал, доступ не открылся.

Как будет правильнее закрыть доступ в серверу 1С, кроме отдела бухгалтерии?

И да. Есть в общий доступ включить только нужных пользователей, а остальных просто удалить из списка, то доступ начинают получать все пользователи. Почему? Я же дал доступ только для определенных пользователей, а доступ получили все. Поэтому группы Учителя и Ученики стоят в списке под запретом. Иначе они получают доступ.
Ответ: 1. При настройке групп, если необходимо ограничение по ресурсам, убедитесь, что один и тот же пользователь не входит в конфликтующие группы.
Например: есть Марьиванна как пользователь. Она входит в группу бухов и учителей. Есть папка "бухучет", которую бухи могут читать-изменять, а учителя не могут. Марьиванна будет эту папку и читать и изменять.
А теперь мы на папку "бухучет" для группы "учителя" поставим именно "запреты" - Марьиванна в эту папку больше не зайдет.
2. Для доступов в ресурсы лучше создавать отдельные группы. Например, есть у вас Бухи, есть для них группа "Бухи". А есть папка "Документы бухов", сделайте для нее группу "ДокументыБухов", потому что вдруг кому-то из учителей, или СБ, или руководства понадобится туда доступ - вы же не будете их в группу "Бухов" добавлять, зачем им весь функционал бухгалтерии?

Типичная настройка папки с ограничениями:
1. Снимаем наследование. Удаляем\копируем права.
2. Сходу добавляем группу доменных админов, чтобы не потерять над ней контроль (или придется забирать у нее владельца).
3. Если нужно, чтобы "все остальные" могли документы читать - добавляем группу всех остальных с правами "чтение и исполнение". Если не нужно - просто не добавляем.
4. Добавляем группу тех, кто должен в этой папке работать, даем им полные права, НО! только для подпапок и файлов.
5. Добавляем эту группу еще раз, НО! теперь даем ей права на чтение и исполнение и ТОЛЬКО для этой папки (теперь они не смогут удалить корневую папку)
6. Если над папкой производятся сервисные операции (типа бэкапов), нужно дать этому пользователю (Локальные админы? Система?) полные права на папку.
Вопрос: Запрет копирования файлов и папок на локальный компьютер

Добрый день гуру..)

Вопрос как бы простой, с одной стороны (в видео мельком затрагивали), только вот инфы так и не нашёл..

Есть терминальный сервер (1с). Как сделать запрет на любое перемещение/копирование файлов и папок за пределы сервера (копирование на локальную машину, прикрепление к почте и т.д.)?
Но при этом у пользователя должны быть все права на чтение/запись этих файлов и папок.

Заранее спасибо откликнувшимся..)
Ответ: Можете заморочиться с шифрованием, по идее, можно сделать что бы файлы были шифрованные и при их копировании открыть на другом компе не получится.
Вопрос: Автоматическое копирование файла с сервера в определённое время

Всем доброго впемени суток,

Тема уже, наверное, заезженная, но ответа пока не нашёл, потому прошу помощи у знатоков.
Появилась надобность копировать файл базы данных с сервера на свой комп, доустим, в "C:\PrintFixRezerv".
Для этого создал bat-файл, который копирует файл базы данных с заменой:

Windows Batch file
1
2
3
@echo off
copy /y "\\BPSERVER\PrintFix\sqlite.db" "C:\PrintFixRezerv\sqlite.db"
exit
Теперь хочется немного автоматизировать процесс и сделать так, чтоб файл базы данных копировался в определённое время. Допустим, каждый день,в 16:00 происходило копирование файла.
Быть может кто-то может пояснить, как добиться этого?
Ответ:

Не по теме:

в магазинах продаётся специальная подставка с регулируемой
наклонной плоскостью для смартфонов;
настроив последний на вибрацию от будильника и подобрав критический угол
сползания с площадки, можно организовать падение на клавиатуру
на клавишу <Enter>, которая, будучи нажатой, запустит предварительно заботливо
подготовленную команду копирования.

Вопрос: Поиск на компьютере INI-файла и копирование найденного файла в папку определенного пользователя

Нужна ваша помощь! Нужно найти файл с расширением .ini и скопировать его в папку Пользователи\(имя пользователя. на каждом компьютере разное\). И возможно чтобы черного окна не было видно при всем этом?! Спасибо!
Ответ:
Сообщение от volodin661
если заправить команду в планировщик
Саму команду да - даст, а если запуск батника с этой опцией - уже мимо.
Вопрос: Резервное копирование файлов с определенными расширениями из разных каталогов с возможностью создания резервно

Резервное копирование файлов с определенными расширениями из разных каталогов с возможностью создания резервного каталога, если его нет в системе. Как можно сделать так, чтобы ,например, из каталога temp и каталога test все их содержимое(которое задается параметром(например txt)) копировало в каталог dexter
и надо сделать так что бы могло копировать не только txt,а еще например doc
Ответ: Код пакетного файла:
Код Windows Batch file
1
@cd/d "%~dp0"& for %%i in ("temp" "test") do @for %%j in (%*) do @xcopy/hkry "%%~i\*.%%~j" "dexter\"
.

Пакетный файл должен находиться в той же директории, что и каталоги "temp" и "test". Если каталога "dexter" в этой же директории не существует, то он будет создан.

Запускать пакетный файл нужно из командной строки с помощью примерно таких команд:
Код Windows Batch file
1
"D:\Work\my.bat" txt
;
Код Windows Batch file
1
"D:\Work\my.bat" doc
;
Код Windows Batch file
1
"D:\Work\my.bat" txt doc
;
Код Windows Batch file
1
"D:\Work\my.bat" txt doc zip
.

Какие расширения файлов введёте (любое количество расширений), такие файлы и будут скопированы. В случае совпадения имён файлы будут заменяться.
Вопрос: копирование файлов по сети без $

в сети на компьютерах удалены шары c$,d$,admins$
ОС - Windows 7
чтобы копировать файлы без использования сетевых ресурсов приходится пользоваться сторонними программами.

Может возможно копирование файлов на ПС пользователя с использованием стандартного инструментария Windows?
В локальных администраторах пользователь, копирующий файлы, присутствует.
*без батников
Ответ:
FreeFire
Безопасник)

Значит спрашивай у него как копировать файлы по сети.

Posted via ActualForum NNTP Server 1.5