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

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

    Опрос

    DOS
    Windows XP
    Windows Vista
    Windows 7
    другая Windows
    Red Hat
    CentOS
    Fedora
    Debian
    Slackware
    Mandriva
    SuSE
    Gentoo
    Ubuntu
    ALT Linux
    ASPLinux
    другая Unix
    OS/2
    SunOS
    Solaris
    IOS
    Mac OS
    моей нет в списке :(
    а что это за слова?



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

    Архив новостей
    Ноябрь 2013 (1)
    Май 2013 (2)
    Апрель 2013 (3)
    Март 2013 (2)
    Февраль 2013 (1)
    Январь 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качиваний: 50)

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

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

  • Скрипт копирования файлов с установленным архивным битом в резервный катало ...
  • Список файлов в каталоге в текстовый файл
  • Перенос приложений на 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-2013 by dimon - all right reserved!
    Тираж:       Счетчик тИЦ и PR     экземпляров.   Дизайн, верстка by dimon