Поиск файлов по заданному расширению - VB
Формулировка задачи:
Напишите пожалуста урывок программного кода, через который будет осуществляться поиск файлов на локальных дисках компьютера за заданым их разширением.В своём урівке можете зделать поиск файлов с расширением txt. Буду сильно благодарен !!!!
Решение задачи: «Поиск файлов по заданному расширению»
textual
Листинг программы
Const cpath = 'C: ' Const cFile = 'C:Log ' Dim fsys Dim oTextStream Dim sfile Set fsys = CreateObject('Scripting.FileSystemObject') sfile = cFile & Replace(cstr(Now()),':','.') & '.log' Set oTextStream = fsys.CreateTextFile(sfile, True) Call scanfolder(cpath, '') call MsgBox('Создание протокола завершено.',,'CreateLog') Sub scanfolder(folderspec, otstup) Dim thisfolder Dim sfolders Dim fileitem, folderitem Dim AllFiles Set thisfolder = fsys.GetFolder(folderspec) Set sfolders = thisfolder.SubFolders Set AllFiles = thisfolder.Files For Each folderitem In sfolders Call oTextStream.WriteLine(_ otstup & 'Папка: ' & folderitem.Name & ' ' & _ folderitem.Size & ' ' & _ folderitem.DateCreated & ' ' & _ folderitem.DateLastModified & ' ' & _ folderitem.DateLastAccessed) Call scanfolder(folderitem.path, otstup & ' ') Next For Each fileitem In AllFiles Call oTextStream.WriteLine( _ otstup & fileitem.Name & ' ' & _ fileitem.Size & ' ' & _ fileitem.DateCreated & ' ' & _ fileitem.DateLastModified & ' ' & _ fileitem.DateLastAccessed) Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д