1 Тема от mik-on (изменено: mik-on, 2016-10-22 02:18:35)

  • mik-on
  • Участник
  • Неактивен

Тема: VBS: Удаление файлов и папок по списку из файла

Всем привет!

Помогите со скриптом, пожалуйста.

Имеется сетевая папка: \\papka\papka2\название на русском\papka3\

В ней находится много файлов  и папок (порядка 4000 штук).

Имеется список папок и файлов, которые необходимо удалить из этой папки в виде текстового файла: \\papka\papka2\название на русском\papka3\file-delete-folder.txt.
Содержимое файла следующее:

\\papka\papka2\название на русском\papka3\папка для удаления 1
\\papka\papka2\название на русском\papka3\папка для удаления 2
\\papka\papka2\название на русском\papka3\папка для удаления 3
\\papka\papka2\название на русском\papka3\файл для удаления.pdf
\\papka\papka2\название на русском\papka3\another файл для удаления.xls
\\papka\papka2\название на русском\papka3\еще файл для удаления.doc
и т.д.

Папки некоторые пустые, а некоторые нет. Файлы и папки с разными атрибутами, есть скрытые, архивные и т.д.

Помогите со скриптом, который бы удалил все папки и файлы из каталога \\papka\papka2\название на русском\papka3\, которые перечислены в файле \\papka\papka2\название на русском\papka3\file-delete-folder.txt.

Заранее благодарен за любую полезную информацию.

2 Ответ от Flasher

  • Flasher
  • Заблокирован
  • Неактивен

Re: VBS: Удаление файлов и папок по списку из файла

mik-on
Спасибо за ознакомление с правилами и правку.

3 Ответ от Flasher

  • Flasher
  • Заблокирован
  • Неактивен

Re: VBS: Удаление файлов и папок по списку из файла

Список в ANSI?

File = "\\papka\papka2\название на русском\papka3\file-delete-folder.txt"
With CreateObject("Scripting.FileSystemObject")
	Set F = .OpenTextFile(File)
	Do : Str = Trim(F.ReadLine)
		If Str <> "" Then
			If .FileExists(Str) Then
				.GetFile(Str).Delete
			ElseIf .FolderExists(Str) Then .GetFolder(Str).Delete
			End If
		End If	
	Loop Until F.AtEndOfStream
End With

Так ругается?

4 Ответ от mik-on

  • mik-on
  • Участник
  • Неактивен

Re: VBS: Удаление файлов и папок по списку из файла

Flasher

Спасибо большое!
Работает отлично и на локальном диске и на сетевом.
Единственное - поскольку удаляет он не мгновенно, добавил строку

msgbox "Файлы удалены"