Архив форумов ЦИТФорума

[zero55]

Есть задача, по расписанию чистить временные папки пользователей.

нашел следующий скрипт

Function GetFolder(sFOLDER)
On Error Resume Next
Set GetFolder = FSO.GetFolder(sFOLDER)
If Err.Number <> 0 Then
WScript.Echo "Error connecting to folder: " & sFOLDER & _
vbLf & "[" & Err.Number & "] " & Err.Description
WScript.Quit Err.Number
End If
On Error GoTo 0
End Function


Set FSO = CreateObject("Scripting.FileSystemObject")
Set Shell = CreateObject("Wscript.Shell")
sDIR = "C:\Temp"
Set objDIR = GetFolder(sDIR)
For Each efile in objDIR.Files
fEXT = FSO.GetExtensionName(efile.Path)
If LCase(fEXT) = LCase("lnk") Then
Set Shortcut = Shell.CreateShortcut(efile)
If Not FSO.FileExists(Shortcut.TargetPath) Then
If Not FSO.FolderExists(Shortcut.TargetPath) Then
efile.Delete
End If
End If
End If
Next


проблема в следущем - как его прикрутить к моей задаче, или есть другое решение?

Спасибо..

[4u3u]

Скрипт, который ты привел, удаляет шорткаты, указывающие на несуществующие файлы. Вряд ли он тебе поможет. В твоем случае достаточно будет простого батника, добавленного в качестве логон скрипта. Вроде этого:

[zero55]

спасибо, проверю сегодня.

[zero55]

Заработало вот в таком виде

@echo off

set folder=%USERPROFILE%\Local Settings\Temp

for /f "delims=" %%i in ('dir /b /ad "%folder%"') do (rd /s /q "%folder%\%%i")
del /q /f /s "%folder%\*.*"