Серый форум — WSH:Рекурсивный вывод файлов в папке.

Re: WSH:Рекурсивный вывод файлов в папке.

null@example.com (wildwolf007) — Sun, 16 Feb 2014 18:38:19 +0000

Убрал все лишнее оставил только суть:

Dim startFolder

Set fso = CreateObject("Scripting.FileSystemObject")
'Место указания пути рекурсии
startFolder = "D:\1\"

CheckFolderInFolder startFolder

Function CheckFolderInFolder (AdresFolder)
    Dim File
    Set Folder = FSO.GetFolder(AdresFolder)
    Set CollectionFolder = Folder.SubFolders
    Set CollectionFile = Folder.Files

    If CollectionFile.count > 0 Then
        For Each File In CollectionFile
            ' Сообщение о файле при переборе
            MsgBox File.Path
        Next
    End If
    
    For Each SubFolder In CollectionFolder
        CheckFolderInFolder SubFolder
    Next

End Function

Re: WSH:Рекурсивный вывод файлов в папке.

null@example.com (wildwolf007) — Sun, 16 Feb 2014 17:27:14 +0000

wisgest пишет:

Нужно рекурсивно пройтись по всем папкам директории "D:\"…
Сколько же ещё будет подниматься этот вопрос?
http://forum.script-coding.com/viewtopi … 7851#p7851:
The gray Cardinal пишет:
Пример скрипта, использующего компонент (рекурсивно выведет подкаталоги каталога C:\Temp)…

Вопрос будет подниматься до тех пор, пока решение не будет предложено на мой взгляд Ваше решение немного замудрено.

Re: WSH:Рекурсивный вывод файлов в папке.

null@example.com (wildwolf007) — Sun, 16 Feb 2014 17:25:30 +0000

Дописал полноценную рекурсию на VBS для просмотра каталогов начальной директории всех файлов вот код если кому будет необходимо:

Dim startFolder, Files(), RazmerMassivaFiles,i,SpisokIzMassiva

RazmerMassivaFiles = 0
reDim Files(RazmerMassivaFiles)

Files(RazmerMassivaFiles) = "В данной структуре каталогов нет файлов"

Set fso = CreateObject("Scripting.FileSystemObject")
startFolder = "D:\GamesMailRu\"

CheckFolderInFolder startFolder

'Вывод значений массива
For i=0 To RazmerMassivaFiles Step 1
    SpisokIzMassiva = SpisokIzMassiva + Files(i) +vbCrLf
    i=i+1
Next

MsgBox SpisokIzMassiva

Function CheckFolderInFolder (AdresFolder)
    'MsgBox AdresFolder
    Dim File
    Set Folder = FSO.GetFolder(AdresFolder)
    Set CollectionFolder = Folder.SubFolders
    Set CollectionFile = Folder.Files
    'MsgBox CollectionFile.count
    If CollectionFile.count > 0 Then
        For Each File In CollectionFile
            Files(RazmerMassivaFiles) = File.Path
            'MsgBox "В массив Files("&RazmerMassivaFiles &") помещено значение = " 

&Files(RazmerMassivaFiles)
            RazmerMassivaFiles = RazmerMassivaFiles + 1
            reDim preserve Files(RazmerMassivaFiles)
            'Files(RazmerMassivaFiles) = "Пустое значение"
        Next
    End If
    
    For Each SubFolder In CollectionFolder
        CheckFolderInFolder SubFolder
    Next

End Function

Единственное не могу понять почему строка "MsgBox SpisokIzMassiva" не выводит в сообщении весь массив ?

Re: WSH:Рекурсивный вывод файлов в папке.

null@example.com (wildwolf007) — Fri, 31 Jan 2014 20:36:40 +0000

По дате создания папки в которой находится файл.

Получилось вот так вот только чет я с многомерными массивами напортачил:

'On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
startFolder = "D:\1\" 
If fso.FolderExists (startFolder) Then Start startFolder

Function Start(folderName)
'MsgBox folderName
    Dim folder, file, fileCollection, folderCollection, subFolder, all, allmassiv
    Dim a(),i,j,k
    i=0        
    k=0
    reDim a(1,1)
    
    all = ""
    allmassiv = ""
    Set folder = fso.GetFolder(folderName)
    Set folderCollection = folder.subFolders
    For Each subFolder In folderCollection
        'MsgBox subFolder.Path
        all = all + subFolder.Path +vbCrLf
        a(i) = all
        a(k) = subFolder.DateCreated
        'MsgBox subFolder.DateCreated
        i=i+1
        k=k+1
        reDim preserve a(i,k)
        Set fileCollection = subFolder.Files   
        For Each file In fileCollection
            'MsgBox file.Path
            all = all + file.Path +vbCrLf
            a(i)=all
            i=i+1
            k=k+1
            j=i
            reDim preserve a(i,k)
        Next 
    Next
        
    MsgBox all
    k=0
    For i=0 To j Step 1
    allmassiv = a(i,k) +vbCrLf
    k=k+1
    Next
   MsgBox allmassiv
End Function

Re: WSH:Рекурсивный вывод файлов в папке.

null@example.com (alexii) — Fri, 31 Jan 2014 18:38:49 +0000

wildwolf007, пример рекурсивной обработки вложенных папок (с обработкой ошибок) Вы можете увидеть, например, здесь.

Теперь я предполагаю все нужно поместить в трехмерный массив

Зачем именно в трёхмерный? Используйте полный путь вместо пути и имени по отдельности.

и потом перебрать получившийся массив методом сортировки

Некорректное выражение: перебирать что-либо методом сортировки невозможно. По каким критериям Вы собираетесь делать сортировку?

Re: WSH:Рекурсивный вывод файлов в папке.

null@example.com (wildwolf007) — Fri, 31 Jan 2014 18:26:14 +0000

Спасибо я тоже к этому склоняюсь. Поэкспериментировал с отдельной папкой и все получилось.

(Мое предположение это проблема при работе с файловой системой попал на папку в которой запрещен вход.)

Скажите, а по логике все правильно построил какие Вы бы добавили дополнения или может могут вылести подводные камни ???

Теперь я предполагаю все нужно поместить в трехмерный массив
i - это полный путь папки.
j - имя файлов.
k - дата создания папки в которой находится файл.

и потом перебрать получившийся массив методом сортировки

Re: WSH:Рекурсивный вывод файлов в папке.

null@example.com (alexii) — Fri, 31 Jan 2014 18:10:39 +0000

Не могу понять почему появляется ошибка при выполнении кода … разрешение отклонено

Например, при попытке обратиться к содержимому «D:\System Volume Information».

Re: WSH:Рекурсивный вывод файлов в папке.

null@example.com (wildwolf007) — Fri, 31 Jan 2014 17:36:00 +0000

Не могу понять почему появляется ошибка при выполнении кода хотя по началу выдает так как нужно ?

Хотя мое предположение это проблема при работе с файловой системой попал на папку в которой запрещен вход.

Осталось все упорядочить относительно даты создания.

Строка 16 символ 3 разрешение отклонено
на строке
For Each file In fileCollection

'On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
startFolder = "D:\" 
If fso.FolderExists (startFolder) Then Start startFolder

Function Start(folderName)
MsgBox folderName
    Dim folder, file, fileCollection, folderCollection, subFolder, all
    all = ""
    Set folder = fso.GetFolder(folderName)
    Set folderCollection = folder.subFolders
    For Each subFolder In folderCollection
        MsgBox subFolder.Path
        all = all + subFolder.Path +vbCrLf
        Set fileCollection = subFolder.Files   
        For Each file In fileCollection
            MsgBox file.Path
            all = all + file.Path +vbCrLf
        Next 
    Next
        
    MsgBox all
   
End Function

Re: WSH:Рекурсивный вывод файлов в папке.

null@example.com (wildwolf007) — Fri, 31 Jan 2014 17:13:55 +0000

dab00 пишет:

wildwolf007 пишет:
Dab00 Ваше решение перебирает только файлы в одной директории.
В одной директории и всех ее поддиректориях, жаль, что Вы не вкурили.

Да действительно все удаляет попробовал сделать так - не получилось, а если так не получается тогда тут и с массивом все не особо получится (скрипт заточен под удаление нужно что-то другое придумать будет):

Set fso = CreateObject("Scripting.FileSystemObject")
startFolder = "D:\1\"
OlderThanDate = DateAdd("d", -2, Date)
 
DeleteOldFiles startFolder, OlderThanDate
 
Function DeleteOldFiles(folderName, BeforeDate)
   Dim folder, file, fileCollection, folderCollection, subFolder 
   Set folder = fso.GetFolder(folderName)
   Set fileCollection = folder.Files
   For Each file In fileCollection
      If file.DateLastModified < BeforeDate Then
        MsgBox file.Path
         'fso.DeleteFile file.Path, True
      End If
   Next 
    Set folderCollection = folder.SubFolders
    For Each subFolder In folderCollection
        MsgBox subFolder.Path
       'DeleteOldFiles subFolder.Path, BeforeDate
       'If subFolder.Size = 0 Then subFolder.Delete True
    Next
End Function

Re: WSH:Рекурсивный вывод файлов в папке.

null@example.com (dab00) — Fri, 31 Jan 2014 14:33:59 +0000

wildwolf007 пишет:

Dab00 Ваше решение перебирает только файлы в одной директории.

В одной директории и всех ее поддиректориях, жаль, что Вы не вкурили.

wildwolf007 пишет:

Ну, а всеж нельзя ли все на одном языке ?

Не смотрел, что за компонент предлагает уважаемый wisgest, но по задаче напрашивается JS, та же сортировка массива, на VBS сложнее.

Re: WSH:Рекурсивный вывод файлов в папке.

null@example.com (wildwolf007) — Fri, 31 Jan 2014 12:48:45 +0000

alexii пишет:

Спасибо, но Ваше решение я не могу использовать в своем коде.
Зато Вы можете использовать код из предложенного решения, ибо ничто не мешает при условии отсутствия дополнительных файлов использовать hta c двумя языками.

Ну, а всеж нельзя ли все на одном языке ? На VBS ? А то я с vbs только начинаю более или менее разбираться, а тут другой JS опять погружаться и опять на 2-3 дня.

Re: WSH:Рекурсивный вывод файлов в папке.

null@example.com (wildwolf007) — Fri, 31 Jan 2014 12:46:35 +0000

Dab00 Ваше решение перебирает только файлы в одной директории.

Re: WSH:Рекурсивный вывод файлов в папке.

null@example.com (alexii) — Fri, 31 Jan 2014 06:09:25 +0000

Спасибо, но Ваше решение я не могу использовать в своем коде.

Зато Вы можете использовать код из предложенного решения, ибо ничто не мешает при условии отсутствия дополнительных файлов использовать hta c двумя языками.

Re: WSH:Рекурсивный вывод файлов в папке.

null@example.com (wildwolf007) — Fri, 31 Jan 2014 05:39:53 +0000

Основной исполняемый файл в hta

Re: WSH:Рекурсивный вывод файлов в папке.

null@example.com (wildwolf007) — Fri, 31 Jan 2014 05:35:11 +0000

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