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

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

    Опрос

    gismeteo.ru
    Погода на Яндексе
    pogoda.ru
    meteonova.ru
    по телевизору
    за окном
    в газете
    а че его смотреть?
    в другом месте
    по счетчику гейгера



    Календарь
    «    Апрель 2012    »
    ПнВтСрЧтПтСбВс
     1
    2345678
    9101112131415
    16171819202122
    23242526272829
    30 

    Архив новостей
    Февраль 2021 (3)
    Январь 2021 (1)
    Ноябрь 2020 (2)
    Июль 2020 (2)
    Июнь 2020 (3)
    Май 2020 (1)

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

    Список файлов в каталоге в текстовый файл.

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

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


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

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



    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(StartPath)
    Set colFiles = objFolder.Files
    For Each objFiles in colFiles
    LogTXT = LogTXT & vbNewLine & objFiles.Path
    Next


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

    WScript.Quit 0



    filesinfolderlist.rar [1,72 Kb] (cкачиваний: 107)

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

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

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


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

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

    #1 написал: Berkut (3 апреля 2012 19:07)
    Удобно) wink


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


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


    Облако тегов
    Android, Arduino, backup, CentOS, cmd, div, DLE, DLE хаки, domoticz, dzvents, event, Home Assistant, Linux, log, LUA, Monster, ogf3, RDP, Template, VBS, w2k8, windows, WSH, бумага, бумажный самолетик, верстка, иструкция, Карты, кино, Навигация, оригами, программа, рецензия, рецепт, скрипт, фигуры, шаблон, Яндекс, яндекс-карты

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