[Секреты ПК] Супер-Корзина! Скрипты VBS #8

★"_ Добро пожаловать на мой канал _"★

✽ Не забудь поставить лайк и подписаться ✽

▼ Все ссылки ▼

Скрипт:

Dim datee, aaa
aaa = "ПУТЬ К ТВОЕЙ ПАПКЕ"
datee = date
if datee = "15.05.2014" Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(aaa)
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders
errResults = objSubfolder.Delete
Next
End if
if datee = "15.06.2014" Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(aaa)
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders
errResults = objSubfolder.Delete
Next
End if
if datee = "15.07.2014" Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(aaa)
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders
errResults = objSubfolder.Delete
Next
End if
if datee = "15.08.2014" Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(aaa)
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders
errResults = objSubfolder.Delete
Next
End if
if datee = "15.09.2014" Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(aaa)
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders
errResults = objSubfolder.Delete
Next
End if
if datee = "15.10.2014" Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(aaa)
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders
errResults = objSubfolder.Delete
Next
End if
if datee = "15.11.2014" Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(aaa)
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders
errResults = objSubfolder.Delete
Next
'-
End if
if datee = "15.04.2014" Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(aaa)
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders
errResults = objSubfolder.Delete
Next
'-
End if
if datee = "15.03.2014" Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(aaa)
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders
errResults = objSubfolder.Delete
Next
'-
End if
if datee = "15.02.2014" Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(aaa)
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders
errResults = objSubfolder.Delete
Next
'-
End if
if datee = "15.01.2014" Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(aaa)
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders
errResults = objSubfolder.Delete
Next
'-
End if
if datee = "15.12.2014" Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(aaa)
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders
errResults = objSubfolder.Delete
Next
End if

☀ Всем удачного дня ◯