[deepred]

POOLEET,

Код:

StrSource  ="F:\[ Coding ]\del_hidden"                    ' проверяемая директория
Set FSO    = CreateObject("Scripting.FileSystemObject")

    For Each file in FSO.GetFolder(StrSource).Files
        IF File.Attributes and 2 Then

           PSH = MsgBox ("Вы действительно хотите удалить"  _
           & " файл" & Vbcrlf & FSO.GetFileName(File), 4+32, _
           "Удаление скрытых файлов")

           IF PSH = 6 Then: File.Delete: End IF
           Else: count = count+1: End If
    Next

    For Each SubFolder In FSO.GetFolder(StrSource).SubFolders
        IF SubFolder.Attributes and 2 Then

           PSH = MsgBox ("Вы действительно хотите удалить"  _
           & " папку" & Vbcrlf & SubFolder.Name, 4+32, _
           "Удаление скрытых файлов")

           IF PSH = 6 Then: SubFolder.Delete: End IF
           Else: count = count+1: End If
Next

    IF count > 0 Then
    MsgBox "Папка не содержит скрытых элементов", 0+64, _
    "Удаление скрытых файлов"
    End If
Wscript.Quit (0)

________________________________________________________________________

Вариант сценария на языке Jscript расположен в разделе:

Компьютерный форум OSzone.net » Компьютеры + Интернет » Вебмастеру »
Javascript Удаление скрытых файлов » post #2
________________________________________________________________________