Архивация скрытых файлов - VBScript/JScript

Формулировка задачи:

Достаточно долго пытаюсь решить данную мне задачу. Но, не получается. В интернете тоже не могу найти. С помощью VBScript необходимо создать скрипт, который будет в заданной с клавиатуры папки находить и архивировать скрытые файлы. Так же в блокнот нужно поместить список архивированных файлов, который должен содержать имя файла и его атрибут.

Решение задачи: «Архивация скрытых файлов»

textual
                            Листинг программы 
                        

                            Option Explicit
Dim Shell, Folder, FSO, TFolder, FPath, F, Text
 
Set Shell = CreateObject("Shell.Application")
Set Folder = Shell.BrowseForFolder(0, vbCr & _
vbCr & "Выберите каталог со скрытыми файлами:", 1, 17)
If Folder Is Nothing Then WSH.Quit
 
Set FSO = CreateObject("Scripting.FileSystemObject")
TFolder = FSO.GetBaseName(FSO.GetTempName)
Folder.NewFolder TFolder
FPath = Folder.Self.Path
TFolder = FPath & "\" & TFolder
 
For Each F In FSO.GetFolder(FPath).Files
    If (F.Attributes And 2) = 2 Then
        Text = Text & vbCrLf & F.Name & vbTab & "[" & Folder.GetDetailsOf(Folder.ParseName(F.Name), 6) & "]"
        F.Move TFolder & "\"
    End If
Next
 
If IsEmpty(Text) Then FSO.DeleteFolder TFolder : MsgBox "В папке " & FPath & " нет скрытых файлов!", 4144 : WSH.Quit
GetObject("New:{D0B7E02C-E1A3-11DC-81FF-001185AE5E76}").SaveDirectoryAsCab TFolder, TFolder & ".cab"
FSO.MoveFile TFolder & "\*", FPath
FSO.DeleteFolder TFolder
FSO.CreateTextFile(TFolder & ".log").Write TFolder & ".cab:" & vbCrLf & Text
Shell.ShellExecute TFolder & ".log"
 
Set Folder = Nothing
Set Shell  = Nothing
Set FSO    = Nothing
                        