Alex LM — да, теперь и у меня блог! :) » файлы папки

Как узнать имена всех файлов папки?

Блог 14 комментариев »

Понадобилось узнать имена всех файлов папки с расширением *.htm Как это сделать?
Посмотреть папку и скопировать названия. Как бы верно, но если в папке сотни, тысячи файлов, руками это делать не логично. :)
Собственно, помог в этом вопросе VBS (Visual Basic Script)…
Запускаем Word Cервис — Макрос — Редактор Visual Basic
Создаем документ, вписываем наш код и компилируем…
Как пример:
Sub ssse()
Dim bv As String

Dim Name As String
bv = Dir("D:\111\*.HTM")
Set AA = CreateObject("Scripting.FileSystemObject")
Set A2 = AA.CreateTextFile("D:\result.txt")
Do While bv <> ""
A2.WriteLine (bv)
bv = Dir Loop A2.Close
End Sub

В результате, в файле D:\result.txt перечислены имена .htm файлов папки D:\111\

Back to Top



Dedicated Servers Themes and Free Wordpress Themes