Серый форум — vbs: как полностью очистить каталог?

Re: vbs: как полностью очистить каталог?

2013-03-20T15:04:24Z

пуск - программы - стандартные - служебные - очистка диска

Re: vbs: как полностью очистить каталог?

2013-03-18T20:47:15Z

Для JScript:

main_folder="С:\\temp";

fso=WScript.CreateObject("Scripting.FileSystemObject");
DeleteFiles(main_folder);

function DeleteFiles(sourcepath)
{
  var folder=fso.GetFolder(sourcepath);
  var files=new Enumerator(folder.Files);

  for(; !files.atEnd(); files.moveNext()) {
    var file=files.item();
      try { file.Delete(); }
      catch(e) {}
  }
  var folders=new Enumerator(folder.SubFolders);
  for(; !folders.atEnd(); folders.moveNext()) DeleteFiles(folders.item().Path);
}

Re: vbs: как полностью очистить каталог?

2013-03-08T11:51:39Z

komr пишет:

эффект точно такой же как у скрипта выше.

А у такого:

F = "<путь к каталогу>"
With CreateObject("Scripting.FileSystemObject")
  .DeleteFolder F & "\*", 1
  .DeleteFile F & "\*", 1
End With

Re: vbs: как полностью очистить каталог?

2013-03-05T09:35:57Z

Чистка кеша IE (cmd):

start RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 8 /min

Поиском можно найти что именно чистить, т.к. есть варианты.
Я использую именно так.

А если целиком, то при каждом входе пользователя запускается батник:

for /f %%i in ('wmic path win32_LocalTime get DayOfWeek') do set wd=%%i
IF %wd% NEQ 1 exit

DEL /q %systemroot%\*.log
DEL /q %systemroot%\*.tmp
DEL /q %systemroot%\*.bak
DEL /q %systemroot%\*.old



rd /s/q "%USERPROFILE%\Local Settings\Application Data\Google\Chrome\User Data\Default\Cache"
del /q "%userprofile%\Local Settings\Application Data\Google\Chrome\User Data\Default\History*"


start RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 8 /min

Re: vbs: как полностью очистить каталог?

2013-03-05T06:23:40Z

Rom5 пишет:

offtop А в связи с чем необходимость в такой чистке возникает? и как Вы ее задумываете запускать?

У нас половина АС теперь через браузер работает, кэш надо чистить, иначе некоторые из АС работают с глюками, опытным путём выяснили, что очистка кэша помогает.
Ясно, что не самое красивое решение, зато быстрое :-)
Запуск через скрипт регистрации пользователя в домене.

Re: vbs: как полностью очистить каталог?

2013-03-04T19:53:03Z

komr пишет:

Прикрутил такую строчку
  pushd "%userprofile%\Local Settings\Temporary Internet Files" && (rmdir /s /q "%userprofile%\Local Settings\Temporary Internet Files" & popd) 2>nul
заработало как надо.

Если все же пришли к DOS-овой команде "rd /s /q", то можно было попробовать и ту команду "del", что я показывал ранее:


DEL "%userprofile%\Local Settings\Temporary Internet Files\*.*" /s /q /as /ah

Хотя остающаяся при этом структура папок может Вам уже вовсе и не нужна.

offtop А в связи с чем необходимость в такой чистке возникает? и как Вы ее задумываете запускать?

Re: vbs: как полностью очистить каталог?

2013-03-04T15:41:37Z

«&&» — выполнить следующую команду только в том случае, если предыдущая команда вернула нулевой код возврата (что обычно говорит о её успешном выполнении).

«2>nul» — перенаправить вывод stderr (потока ошибок) на фиктивное пустое устройство (обычный результат — подавление вывода на консоль сообщений об ошибках).

«(…)» — скобки группируют несколько команд в одну группу.

«&» — символ, позволяющий объединить несколько команд в одной строке.

Re: vbs: как полностью очистить каталог?

2013-03-04T12:02:04Z

Прикрутил такую строчку

  pushd "%userprofile%\Local Settings\Temporary Internet Files" && (rmdir /s /q "%userprofile%\Local Settings\Temporary Internet Files" & popd) 2>nul

заработало как надо. Только совсем не понятно, что в этой строке написано :-) Что означают символы "&&", "2>null" вкупе с вроде бы понятными операторами?

Re: vbs: как полностью очистить каталог?

2013-03-04T10:22:49Z

Может на выполнение скрипта влияют права пользователя? Они обычные, пользовательские.

Re: vbs: как полностью очистить каталог?

2013-03-04T10:21:12Z

Dmitrii пишет:

Попробуйте такой способ:

Попробовал, эффект точно такой же как у скрипта выше. Скрипт выдаёт только имена файлов. А надо чтоб и путь до файла тоже присутствовал.

Re: vbs: как полностью очистить каталог?

2013-03-04T06:21:38Z

Попробуйте такой способ:

strPath = "C:\Documents and Settings\Admin\Local Settings\Temporary Internet Files"
Set objFS = CreateObject("Scripting.FileSystemObject")
If objFS.FolderExists(strPath) Then
    Set objShell = CreateObject("Shell.Application")
    Set objFolderItems = objShell.NameSpace(strPath).Items
    objFolderItems.Filter 32 + 64 + 128, "*"
    For Each objItem In objFolderItems
        WScript.Echo objItem.Path
    Next
    Set objFolderItems = Nothing
    Set objShell = Nothing
Else
    WScript.Echo "Путь не найден."
End If
Set objFS = Nothing
WScript.Quit 0

Re: vbs: как полностью очистить каталог?

2013-03-04T04:46:29Z

Коллеги, есть варианты решения? Прошу помощи!

Re: vbs: как полностью очистить каталог?

2013-03-01T18:45:08Z

Ещё такой код попробовал - скрытые каталоги в кэше не удалились, в ручную же удалились легко:


On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\Documents and Settings\Admin\Local Settings\Temporary Internet Files")
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders
 errResults = objSubfolder.Delete
Next
Set files_col = objFolder.files
For each file_obj in files_col
 file_obj.delete(true)
Next

Re: vbs: как полностью очистить каталог?

2013-03-01T18:24:20Z

Я извиняюсь,
мне по дате не надо ничего смотреть, нужно просто удалить всё, что возможно, из произвольного каталога. Код поправил. В случае с папкой временных файлов IE ничего не получается сделать этим кодом, а как решить проблему - не знаю. И хотелось бы решить всё на vbs, а не командами xcopy.


Sub DeleteFiles(FolderPath)
    On Error Resume Next
    Set objFolderItems = objShellApp.NameSpace(FolderPath).Items()
    For Each objFolderItem In objFolderItems
        If objFolderItem.IsFolder And LCase(Right(objFolderItem.Name, 4)) <> ".zip" Then
            DeleteFiles objFolderItem.Path
        Else
            Set objFile = objFSO.GetFile(objFolderItem.Path)
            DeleteFile objFolderItem.Path
        End If
    Next
End Sub

Re: vbs: как полностью очистить каталог?

2013-02-28T21:43:53Z

komr пишет:

...
Пример целевого каталога:
C:\Documents and Settings\\Local Settings\Temporary Internet Files
Поиском искал, найденный рекурсивный скрипт не видит файлов в скрытых папках.
Даже не так, интереснее, некоторые файлы он видит, но возвращает только их имена, без пути, что делает не возможным их удаление.

Список файлов, включая скрытые, можете попробовать сделать так:

xcopy c:\docume~1\username\locals~1\tempor~1\*.*  /H /S /L > c:\tempIE.txt

ДОСовая команда xcopy с ключиком "/L" ничего не копирует, а только отображает полные пути к файлам. Пути я для наглядности брал "короткие", но в работе надежнее, конечно, указывать "длинные" (вдруг там еще есть похожий длинный путь).

А если предварительно выполнить аналогичную команду, но добавив еще и ключ "/D:m-d-y" (в который надо подставить параметры контролируемой даты - как я понял по Вашему скрипту, Вам надо удалять файлы старее, чем дата в переменной "ControlDate"), то в этот список попадут по идее файлы "свежее" указанной даты. И потом этот список можно будет подсунуть второй команде XCOPY в виде списка файлов - исключений.


::: Для пользователя "roman2"
::: создание списка неудаляемых файлов, например, свежее даты "28.02.2013 00:00"
xcopy c:\docume~1\roman2\locals~1\tempor~1\*.* /H /L /S /D:02-28-2013 > c:\tempIE_ECXLUDE.txt

::: создание списка для удаления
xcopy c:\docume~1\roman2\locals~1\tempor~1\*.* /H /L /S /EXCLUDE:"c:\tempIE_ECXLUDE.txt" > c:\tempIE_for_DEL.txt

::: а просто удалить все файлы без контроля дат, можно попробовать так (не проверял):
rem DEL c:\docume~1\roman2\locals~1\tempor~1\*.* /s /q /as /ah

И само удаление на основании файла c:\tempIE_for_DEL.txt можно будет выполнить тут же в батнике, разобрав этот файл командой FOR.
"Колхоз" конечно , но думаю сработает.