Перемещение файлов в корзину с раб. стола
 

Здравствуйте, профессионалы программирования!

Нужен скрипт VBS, а в идеале CMD, вообщем чем проще тем лучше, который бы перемещал (не удалял) файлы разных разрешений, но КРОМЕ ЯРЛЫКОВ, с рабочего стола в корзину. А я потом этот скрипт в шедуллер закину поставлю время и будет мне счастья. Никак не могу сделать, у меня ума хватает только на copy. Всех милых дам с праздником 8 марта!

С уважением, дилетант Дмитрий!

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

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

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

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

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

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

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

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

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

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

А вот это уже реально без привлечения специфических приёмов Проводника, пользуясь хотя бы тем же Windows Scrip Host

Спасибо, но я плохо знаю языки программирования учусь vbs (у) и батнику.
Вот скрипт такой получился. Не поможете еще раз там ошибку выдает, не могу понять почему?

DIM fso
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%USERPROFILE%") & "\Рабочий стол\"
objFinishFolder = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%USERPROFILE%") & "\Папка на удаление\"
Set objfolder= fso.GetFolder("objStartFolder")
Set colFiles = objStartFolder.Files,objFinishFolder.Files
For Each objFile in colFiles
If DateDiff("D", objFile.DateCreated, Now) > 3 Then
objFile.Attributes = 1
objFile.MoveFile (objStartFolder, objFinishFolder)
End If
Next

ShowSubFolders FSO.GetFolder(objStartFolder,objFinishFolder)
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"

Set colFiles = objFolder.Files
If DateDiff("D", objFile.DateCreated, Now) > 3 Then
objFile.Attributes = 1
objFile.MoveFile (objFolder.Files, objFinishFolder)
End If
Next
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
objFSO.DeleteFolder(subFolder.Path)
End If
Next
end sub