Серый форум — AHK: Список файлов и папок на диске или в папке

Re: AHK: Список файлов и папок на диске или в папке

null@example.com (ypppu) — Fri, 15 Jan 2021 03:47:16 +0000

ОС лежит в папке "A_WinDir".

Re: AHK: Список файлов и папок на диске или в папке

null@example.com (DD) — Thu, 14 Jan 2021 20:38:27 +0000

Так получает список дисков:

DriveGet, Drivelist, List
Loop, parse, Drivelist
   msgbox % Drivelist

Как исключить системный диск?

Re: AHK: Список файлов и папок на диске или в папке

null@example.com (DD) — Thu, 14 Jan 2021 19:48:09 +0000

А как бы обойти все диски кроме системного и сохранить структуру папок из них (в виде путей)?

#MaxMem
#NoEnv
SetBatchLines, -1

folder := "C:\Tmp"
Loop, %folder%\*.*, 2
   list .= A_LoopFileLongPath "`n"
FileAppend, % list, %A_scriptdir%\AllSubFldList.txt
list =
return

Re: AHK: Список файлов и папок на диске или в папке

null@example.com (qqlexa) — Sat, 26 May 2018 21:41:56 +0000

KusochekDobra, Да, буду сидеть и разбираться.

Re: AHK: Список файлов и папок на диске или в папке

null@example.com (svoboden) — Sat, 26 May 2018 14:29:49 +0000

Хорошо, буду знать.

Re: AHK: Список файлов и папок на диске или в папке

null@example.com (teadrinker) — Sat, 26 May 2018 14:17:38 +0000

В любом случае можно обойтись циклом вместо рекурсии.

Re: AHK: Список файлов и папок на диске или в папке

null@example.com (svoboden) — Sat, 26 May 2018 14:03:18 +0000

teadrinker, так это понятно, мне хотелось через com просто, т.к. больше информации можно получить о каталогах/файлах.

Re: AHK: Список файлов и папок на диске или в папке

null@example.com (teadrinker) — Sat, 26 May 2018 13:54:47 +0000

У вас Counter — статическая переменная, при каждом вызове новые данные приплюсовываются к старому значению.

Кроме того, не нужно создавать fso := ComObjCreate("Scripting.FileSystemObject") каждый раз заново при рекурсивном вызове, достаточно создать один раз и передавать fso при вызове.

Также нет никакого смысла разбивать алгоритм на две функции, fso.GetFolder(Folder).Files.Count можно получать сразу.

Вообще не стоит для этой задачи использовать рекурсию, можно получить переполнение стека.

#NoEnv
SetBatchLines, -1

folder := A_ScriptDir

counter := 0
Loop, Files, %folder%\*, FR
   counter++

MsgBox, % counter

Re: AHK: Список файлов и папок на диске или в папке

null@example.com (svoboden) — Sat, 26 May 2018 13:46:10 +0000

Да, согласен, а если написать еще один msgbox внизу, то тоже результат другой. Это как-то прибавляет результат. Может, счетчик сбрасывать надо.

Re: AHK: Список файлов и папок на диске или в папке

null@example.com (teadrinker) — Sat, 26 May 2018 12:46:44 +0000

svoboden, вы привели хороший пример того, как НЕ нужно писать код.
Запустите:

FileCreateDir, % A_ScriptDir . "\NewFolder\NewFolder"
FileAppend,, % A_ScriptDir . "\NewFolder\NewFolder\test.txt"

    Folder := A_ScriptDir . "\NewFolder"

    CountFilesR(Folder) {
   static Counter := 0
   fso := ComObjCreate("Scripting.FileSystemObject")
   Folder := fso.GetFolder(Folder)
   Counter += Counter ? 0 : CountFiles(Folder)
   For Subfolder in Folder.SubFolders
   Counter += CountFiles(Subfolder),CountFilesR(Subfolder)
   return Counter
}

CountFiles(Folder) {
   fso := ComObjCreate("Scripting.FileSystemObject")
   Folder := fso.GetFolder(Folder)
   return fso.GetFolder(Folder).Files.Count
}

MsgBox % CountFilesR(Folder)
MsgBox % CountFilesR(Folder)

Во втором сообщении результат другой, странно, правда?

Re: AHK: Список файлов и папок на диске или в папке

null@example.com (svoboden) — Sat, 26 May 2018 00:16:03 +0000

Можно еще через Api. Так, например, можно найти количество файлов в каталогах/подкаталогах нужной папки:


    Folder := "Путь к каталогу"

    CountFilesR(Folder) {
	static Counter := 0
	fso := ComObjCreate("Scripting.FileSystemObject")
	Folder := fso.GetFolder(Folder)
	Counter += Counter ? 0 : CountFiles(Folder)
	For Subfolder in Folder.SubFolders
	Counter += CountFiles(Subfolder),CountFilesR(Subfolder)
	return Counter
}

CountFiles(Folder) {
	fso := ComObjCreate("Scripting.FileSystemObject")
	Folder := fso.GetFolder(Folder)
	return fso.GetFolder(Folder).Files.Count
}

MsgBox % CountFilesR(Folder)
MsgBox % CountFiles(Folder)

Насчет имен и информации каталогов/файлов, то вот:
https://msdn.microsoft.com/ru-ru/librar … .110).aspx,
https://msdn.microsoft.com/en-us/library/9kcx47hd.aspx.
Записать полученную информацию можно командой FileAppend.

Re: AHK: Список файлов и папок на диске или в папке

null@example.com (KusochekDobra) — Fri, 25 May 2018 17:56:20 +0000

Используйте Loop для файлов и папок.

AHK: Список файлов и папок на диске или в папке

null@example.com (qqlexa) — Fri, 25 May 2018 17:31:26 +0000

Подскажите пожалуйста, можно ли путём ахк узнать все папки/файлы находящиеся в папке/диске.
Функция DriveGet позволяет получить информацию только о самом диске, а я хотел бы получить информацию о находящихся папках/файлах внутри папки/диска и записать всю полученную информацию в текстовый документ.
Пример текстового документа:


Папок внутри папки/диска : 1
Название папки - New
Файлов внутри папки/диска : 5
Названия файлов - New1.txt, New2.txt, New3.txt, New4.txt, New5.txt