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

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

2021-01-15T03:47:16Z

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

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

2021-01-14T20:38:27Z

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

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

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

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

2021-01-14T19:48:09Z

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

#MaxMem
#NoEnv
SetBatchLines, -1

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

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

2018-05-26T21:41:56Z

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

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

2018-05-26T14:29:49Z

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

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

2018-05-26T14:17:38Z

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

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

2018-05-26T14:03:18Z

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

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

2018-05-26T13:54:47Z

У вас 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: Список файлов и папок на диске или в папке

2018-05-26T13:46:10Z

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

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

2018-05-26T12:46:44Z

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: Список файлов и папок на диске или в папке

2018-05-26T00:16:03Z

Можно еще через 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: Список файлов и папок на диске или в папке

2018-05-25T17:56:20Z

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

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

2018-05-25T17:31:26Z

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


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