Исключить из операции удаления определённую папку с файлами

@to1k · Регистрация: 25.04.2016

Author24 — интернет-сервис помощи студентам

Всем привет.

Нужна ваша помощь, есть скрипт на чистку шары, как добавить исключение, что бы при удалении не трогал папку "tmp" с файлами внутри.

вот собственно скрипт:

Visual Basic

on error resume next
 
set WshShell = CreateObject("WScript.Shell")
const DeleteReadOnly = TRUE
 
computer = WshShell.ExpandEnvironmentStrings("%computername%")
 
pathexch = "" & computer & "\exch$"
pathzebr = "" & computer & "\exch$\zebra"
pathsett = "" & computer & "\scriptsrv$\zebra\настройки.bat"
 
CleanExch pathexch
ZebraSettings pathzebr , pathsett
 
Sub CleanExch(Path)
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFolder(Path & "*"), DeleteReadOnly
objFSO.DeleteFile(Path & "*.*"), DeleteReadOnly
 
End Sub
 
Sub ZebraSettings(Path,File)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder(Path)
objFSO.CopyFile File , Path , OverwriteExisting 
 
End Sub

@iCCupPlatoon · 16.05.2016, 14:35

Проверять вхождение имени папки и сравнивать.

Visual Basic

1
2
3

If Papka <> DontDeletePapka
       objFSO.DeleteFile(Papka), DeleteReadOnly
End If

@tisha_ · 16.05.2016, 14:39

iCCupPlatoon, DontDeletePapka содержит только имя или путь тоже?

@iCCupPlatoon · 16.05.2016, 16:19

Эххх... Вспомнить бы. Вот как в NET среде выполнить - знаю. А тут - не помню.

@tisha_ 61 / 61 / 36 Регистрация: 16.09.2015 Сообщений: 296
	16.05.2016, 14:39	3
	iCCupPlatoon, DontDeletePapka содержит только имя или путь тоже? 0

@iCCupPlatoon 27 / 26 / 11 Регистрация: 25.03.2014 Сообщений: 217
	16.05.2016, 16:19	4
	Эххх... Вспомнить бы. Вот как в NET среде выполнить - знаю. А тут - не помню. 0

Исключить из операции удаления определённую папку с файлами

Решение