Получить список файлов из каталога
Простенький пример на VB создает документ MS Word со списком названий файлов в текушей папке (каталоге).
Сначала создадим объекты файловой системы, для получения названий файлов
Set FSO1 = CreateObject("Scripting.FileSystemObject")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
Set Folder = FSO.GetFolder(WshShell.CurrentDirectory)
Создадим объект Word
Set word = CreateObject("Word.Application")
word.Documents.Add("")
Читаем названия файлов
For Each File In Folder.Files
Пропустим файл с именем "readfile.vbs", т.к. это файл, который читает содержимое этого каталога и его можно не добавлять в список, или добавьте какой-либо свой файл в исключения.
if File.Name ="readfile.vbs" then
else
Добавим считанные имена файлов
word.Application.Selection.TypeText FSO1.GetBaseName(File.Name) & vbCrLf
end if
Next
Отобразим на экране созданный документ Word со списком полученных файлов
Word.visible = true
Сформировать список файлов определенного расширения
type1 = "rar"
type2 = "zip"
type3 = "arj"
Set FSO1 = CreateObject("Scripting.FileSystemObject")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
Set Folder = FSO.GetFolder(WshShell.CurrentDirectory)
Set word = CreateObject("Word.Application")
word.Documents.Add("")
word.Application.Selection.TypeText Folder.Path & vbCrLf
For Each File In Folder.Files
if File.Name ="file.vbs" then
else
select case FSO1.GetExtensionName(File.Name)
case type1, type2, type3
word.Application.Selection.TypeText " " & File.Name & vbCrLf
end select
end if
Next
printfile Folder, word
sub printfile(Folder1,word)
For Each SubFolder In Folder1.SubFolders
word.Application.Selection.TypeText SubFolder.Path & vbCrLf
For Each File In SubFolder.Files
if File.Name ="file.vbs" then
else
select case FSO1.GetExtensionName(File.Name)
case type1, type2, type3
word.Application.Selection.TypeText " " & File.Name & vbCrLf
end select
end if
Next
printfile SubFolder, word
Next
end Sub
Word.visible = true
|