Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


Цитата aks.05:
В файле пример.txt должна быть запись вида:
"Папка1 Подпапка1.1 Подпапка1.2
Папка2 Подпапка2.1
Папка3
..." »
Потрясающе. Особенно с учётом:
Цитата aks.05:
Имена папок могут быть с пробелами… »

PowerShell:
Код: Выделить весь код
$sRootPath   = "C:\Windows"
$sResultFile = "C:\Песочница\031\пример.txt"

([System.IO.FileInfo]$sRootPath).FullName | Out-File -FilePath $sResultFile

Get-ChildItem -Path $sRootPath -Force |`
    ForEach-Object -Process {
        if($_.PsIsContainer) {
            "`t$($_.Name)" | Out-File -FilePath $sResultFile -Append
            
            Get-ChildItem -Path $_.FullName -Force |`
                ForEach-Object -Process {
                    if($_.PsIsContainer) {
                        "`t`t$($_.Name)" | Out-File -FilePath $sResultFile -Append
                    }
                }
        }
    }
Результирующий «пример.txt»
Код: Выделить весь код
C:\Windows
	$968930Uinstall_KB968930$
		spuninst
	$NtUninstallKB968930$
		ru
	addins
	AppPatch
	assembly
		GAC
		GAC_32
…

	Cursors
	Debug
		UserMode
	Downloaded Program Files
	Driver Cache
		i386
	ehome
	Fonts
…
Это сообщение посчитали полезным следующие участники:

Отправлено: 15:26, 04-09-2013 | #2