Сделать стартовойДобавить в закладки  
Главная страничка Главная страничка
В номере:

Выходит с 17 июля 2008 г. цена договорная

Опрос

конечно, он настанет в 2012 г.
да, но не в 2012 г.
нет, это фантастика
а что такое конец света
а мне пофиг - я буду уже мертв



Календарь
«    Ноябрь 2012    »
ПнВтСрЧтПтСбВс
 1234
567891011
12131415161718
19202122232425
2627282930 

Архив новостей
Май 2018 (2)
Апрель 2018 (2)
Ноябрь 2013 (1)
Май 2013 (2)
Апрель 2013 (3)
Март 2013 (2)

Информация
Рекурсивный список подкатологов и файлов в текстовый лог
OS, мобильные OS » Windows » WSH скрипты
автор: dimon, опубликовано: 8 ноября 2012

В файл записываем список подкаталогов и файлов с рекурсивным просмотром каталогов.

'----------------------------------------------------------------------
'
' Copyright (c)  All rights reserved.
'
'
' AUTHOR: tudimon.com
' DATE: 07.11.2012
' NAME: SubFolderList_v2.vbs
'
' COMMENT:
'
' В файл записывается рекрсивный список всех папок и файлов в указанном каталоге.
'
'
'----------------------------------------------------------------------

StartPath = "C:\Downloads"                    ' Стартовая папка, просматриваем вложенные в нее папки первого уровня (без слэша на конце)
LogFilePath = "c:\SubFolderFiles_log.log"    ' лог-файл
LogTXT = ""                                 ' переменная для записи в лог


'----------------------------------------------------------------------

LogTXT = LogTXT & vbNewLine & "******************** " & Now & " ********************"


' вызовем процедуру просмотра
SeeInFolder (StartPath)

' Пишем лог
Set FSO = CreateObject("Scripting.FileSystemObject")
Set LogFile = FSO.OpenTextFile(LogFilePath, 8, True)
LogTXT = LogTXT & vbNewLine & "*************************************************************"
LogFile.WriteLine LogTXT
LogFile.Close



'-------------------------------------------------------------------------------
'--------------------------------- ФУНКЦИИ -------------------------------------
'-------------------------------------------------------------------------------
' функция просмотра каталога
Function SeeInFolder(dir)

' смотрим есть ли директории
' есть - идем внутрь первой
' нет  - проверяем файлы

dirLevel = dirLevel + 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(dir)
Set colSubfolders = objFolder.Subfolders
Set colfiles = objFolder.Files

If objFolder.SubFolders.Count <> 0 Then
    For Each f1 In colSubfolders
        SubFEx = "1"
        
        LogTXT = LogTXT & vbNewLine & f1.Path & "\"
                
        SeeInFolder (f1.Path)
    Next
end if

' смотрим файлы
ShowFileList (dir)

dirLevel = dirLevel - 1
End Function


'-------------------------------------------------------------------------------
' функция обрабатывает файлы в папке dir
Function ShowFileList(dir)
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set fld = FSO.GetFolder(dir)
    Set fc = fld.Files
        For Each f1 In fc
            ' имя и путь до файла
            filePathName = dir & "\" & f1.Name
            
            LogTXT = LogTXT & vbNewLine & filePathName
                    
  
      
        Next
End Function
'-------------------------------------------------------------------------------



WScript.Quit 0



subfolderlist_v2.rar [2,05 Kb] (cкачиваний: 51)

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

Другие новости по теме:

  • Скрипт копирования файлов с установленным архивным битом в резервный катало ...
  • Список файлов в каталоге в текстовый файл
  • Перенос приложений на SD карту в ОС Android
  • Простенький трёхколонный резиновый макет на div-ах
  • DLE: Как создать модуль или как я делал дополнительную форму обратной связи


  • Комментарии:

    Оставить комментарий



     
    Информация
     
    Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.


    Поиск по сайту:


    Аккаунт
    Войти
    (Забыли?)
    Облако тегов
    1602, Android, Arduino, backup, CentOS, cmd, css, div, DLE, DLE хаки, Ethernet, LCD, Linux, log, Monster, ogf3, RDP, Template, VBS, w2k8, windows, WSH, бумага, бумажный самолетик, бэкап, верстка, иструкция, Карты, кино, Навигация, оригами, программа, рецензия, рецепт, скрипт, фигуры, шаблон, Яндекс, яндекс-карты

    Показать все теги
    Реклама
    раскрутка сайта бесплатно






    Главная страница | Регистрация | Добавить новость | Новое на сайте | Статистика | Поддержка | Правила ресурса Copyright © 2005-2018 by dimon - all right reserved!
    Тираж:       Счетчик тИЦ и PR     экземпляров.   Дизайн, верстка by dimon