[ses333ser]

Да. Главное забыл упомянуть, это должно использовать директорию %userprofile%, если я правильно выражаюсь. Вообщем заходит сотрудник у него документ на его пк пролежал x дней на раб столе и этот файл по истечении x дней будет перенесен в корзину.

Заранее всем благодарен!

[Iska]

1. Зачем удалять всё подряд с Рабочего стола пользователя?
2. Почему удалять в Корзину, а не просто удалять? В чём глубинный смысл?

[ses333ser]

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

[exo]

Никак не заставить сотрудников работать в сетевой папки, »

перенаправление папки "Рабочий стол" и не только на сервер

[Iska]

ses333ser, поставленная задача (а не та, что Вы придумали) решается иными методами.

[ses333ser]

А может что-то типа этого. Очень нужна помощь уже неделю мучаюсь. Нужен именно скрипт.



Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%USERPROFILE%") & "\Рабочий стол\"
objFinishFolder = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%USERPROFILE%") & "C:\RECYCLER\"
arrPath =array("objStartFolder" & "\Links") 'папки которые исключаем

Set objFolder = objFSO.GetFolder(objstartfolder)
Set colFiles = objFolder.Files
For Each objFile in colFiles
If DateDiff("D", objFile.DateLastModified, Now) > 1 Then ' проверка файлов на старость
Log (objFolder.Path & "\" & objFile.Name & " - " & objFile.DateLastModified)
objFile.Attributes = 0
objFile.Move objFinishFolder
End If
Next

ShowSubfolders objFSO.GetFolder(objStartFolder)
Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
Set objFolder = objFSO.GetFolder(subfolder.Path)
p=false
i=lbound(arrpath)
WHILE (p=false) and (i<=ubound(arrpath))
if (objfolder.path=arrpath(i) ) then
p=true
end if
i=i+1
WEND
if (not p) then
' Wscript.Echo objfolder.path & " - " & "udalat` mozna"
' 1) проверить файлы на старость
Set colFiles = objFolder.Files
For Each objFile in colFiles
If DateDiff("D", objFile.DateLastModified, Now) > 1 Then ' проверка файлов на старость
Log (objFolder.Path & "\" & objFile.Name & " - " & objFile.DateLastModified)
objFile.Attributes = 0
objFile.Move objFinishFolder
End If
Next
' 2) проверить каталог на пустоту
If objFolder.Subfolders.Count > 0 then
ShowSubFolders SubFolder
End If
If subFolder.Files.Count > 0 AND subFolder.Subfolders.Count > 0 then
' MsgBox "Directory " & subFolder & "- ne pusta."
else
Log(subFolder.Path & " - " & subFolder.Datecreated)
objFSO.DeleteFolder(subFolder.Path)
End If
End If
Next
end sub

'функция для создания log-файла. он создается рядом со скриптом, имя - дата запуска скрипта.
Function Log(strLineToLog)
Const ForReading = 1, ForWriting = 2
Dim fso, f, FileLog

Set fso = CreateObject("Scripting.FileSystemObject")
FileLog = Left(WScript.ScriptName,(Len(WScript.ScriptName)-4)) & "_" & DatePart("yyyy",Date) & "_" & DatePart("m",Date) & "_" & DatePart("d",Date) & "." & "log"
Set f = fso.OpenTextFile(FileLog, 8, True)
f.Write strLineToLog & vbCrLf
f.Close
End Function

[mwz]

ses333ser,

objFinishFolder = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%USERPROFILE%") & "C:\RECYCLER\" .... objFile.Move objFinishFolder »

ничего не даст (точнее даст -- но не то, что вы ожидаете): Проводник помещает файлы в Корзину не простым перемещением файла, а с одновременным его переименованием и созданием парного маркерного файла в Win-7, или (в WinXP) с переименованием исходного файла и занесением информации о его исходном имени и местоположении в скрытый файл INFO2, лежащий в папке корзины конкретного пользователя на конкретном диске.

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

И помещает не в папку "C:\RECYCLER\", а в папку "C:\RECYCLER\{SID_пользователя}" в WinXP, или в "C:\$Recycle.Bin\{SID_пользователя}" в Win-7. Кроме того (ну для ваших требований это не является существенным), файлы попадают в папки корзин только тех дисков, на которых они лежали -- т.е. файл с диска D: при удалении в корзину не может попасть ни в какую из папок корзины других дисков, а только в папку корзины на этом же диске D:

[ses333ser]

Спасибо! А если просто удалять через этот скрипт? Есть проблема - рекурсия вроде бы есть, а вроде бы нет, т.к выборка происходит с учетом создания файла, а потом смотрит на модификацию и удаляет по модификации. Можно как-нибудь удалять файлы только по дате изменения без учета создания!

[ses333ser]

А еще в самом идеале - чтобы файлы перемещались в определенную папку на раб. столе, ну скажем "Папка на удаления" перемещались файлы с изменением атрибута на чтение и потом по истечении 30 дней удалялись во все. С атрибутом вроде бы я разобрался Attrib=1. Вот нужна рекурсия, я так понимаю она делается посредством команды Dim вот куда ее вставить не могу разобраться.