strFolderName = "C:\Luser"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(strFolderName) Then
fso.DeleteFolder strFolderName
End If
MsgBox "Папка Luser УДАЛЕНА с Вашего диска С:\  !!!Enjoy!"





