Серый форум — VBS: Удаление файлов и папок по списку из файла

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

2016-10-27T12:50:58Z

Flasher

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

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

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

2016-10-21T23:24:15Z

Список в 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

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

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

2016-10-21T17:44:21Z

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

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

2016-10-21T17:08:55Z

Всем привет!

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

Имеется сетевая папка: \\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.

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