Windows: Как распечатать список файлов и папок

Windows не предлагает прямого способа распечатать список файлов и папок на жестком диске, что может быть полезно во многих случаях. Существует множество программ, позволяющих решить проблему, однако, не прибегая к ним, можно применить некоторые практические альтернативные решения.

— Можно использовать подсказку Dos. Достигнув интересующей папки с помощью соответствующей команды («CD»), набрав
DIR /V> C:папка_назначенияИМЯ_ФАЙЛА.TXT
в папке «C:папка_назначения» будет создан текстовый файл «NOMEFILE.TXT», содержащий список всех файлов. Не забудьте заменить «C: папка_назначения» на полный путь, по которому вы хотите сохранить текстовый файл, а FILENAME.TXT — на имя файла, который вы хотите создать.

Обратите внимание, что параметр /V, связанный с командой DIR, также позволяет получить данные о каждом отдельном файле.

— Еще более интересное решение — создать скрипт VB, подходящий для этой цели. Создайте файл с расширением VBS (например, LISTADIR.VBS) и вставьте в него с помощью Блокнота Windows следующий код:
Папка = InputBox («Имя папки:»)
Если Папка = «» Тогда Папка = «C:»
установить ie4 = CreateObject («InternetExplorer.Application»)
ie4.navigate(«о:пусто»): ie4.visible=1
установить FSys=CreateObject(«Scripting.FileSystemObject»)
Установите TheFolder = FSys.GetFolder (Картелла)
ie4.document.body.innerHTML=»

Программы для Windows, мобильные приложения, игры - ВСЁ БЕСПЛАТНО, в нашем закрытом телеграмм канале - Подписывайтесь:)

«
Подпапки TheFolder, FiltroFile
YesNo=MsgBox(«Штамп?», vbYesNo)
Если ДаНет = vbДа Тогда ie4.ExecWB 6, 2
установить ie4=ничего: установить fSys=ничего

Подпапки (ByVal AFolder, TheExtension)
strOut=»» & AFolder & «
«
ie4.document.all.idOutput.insertAdjacentHTML «BeforeEnd», strOut
ShowFilesWithExtensionIn AFolder, TheExtension
Установите MoreFolders = AFolder.SubFolders
Для каждой TempFolder в MoreFolders
Подпапки TempFolder, TheExtension
Следующий
End SubSub ShowFilesWithExtensionIn (AFolder, TheExtension)
‘Dim AFile, TheFiles,s, заголовок

заголовок = «

«
Установите TheFiles = AFolder.Files

Для каждого AFile в TheFiles
s=AFile.Name
с = с & «
«
ie4.document.all.idOutput.insertAdjacentHTML «BeforeEnd», с

Следующий
Конец сабвуфера

Двойной щелчок по только что созданному файлу VBS (Visual Basic Script) предложит вам ввести имя папки.

Начиная с указанной папки, все содержащиеся файлы, включая файлы, принадлежащие любым присутствующим подпапкам, будут отправлены в Internet Explorer 4 и перечислены в окне. Таким образом, мы создали первый пример с Windows Scripting Host (WSH), о котором говорили несколько недель назад. Начиная со следующей недели, мы представим дополнительные возможные приложения.

Обратите внимание, что пример работает только с Windows 98 и Internet Explorer 4.

Программы для Windows, мобильные приложения, игры - ВСЁ БЕСПЛАТНО, в нашем закрытом телеграмм канале - Подписывайтесь:)

Похожие записи

Добавить комментарий

Ваш адрес email не будет опубликован.