Что нового

[Файловая система] Название файлов в текстовый документ

Freesty1er

Новичок
Сообщения
7
Репутация
0
Подскажите пожалуйста, как можно название всех файлов папки извлечь в текстовый документ?
 

beve

Осваивающий
Сообщения
104
Репутация
31
Вот пример из куда-то (список файлов в папке и подпапках):
Код:
HotKeySet("{Esc}", "_exit")
;Recursive File Lister

Dim $FolderName = "C:\WINDOWS\SYSTEM32"
Dim $FileCount = 0

ScanFolder($FolderName)

MsgBox(0,"Done","Folder Scan Complete.  Scanned " & $FileCount & " Files")

Func ScanFolder($SourceFolder)
	Local $Search
	Local $File
	Local $FileAttributes
	Local $FullFilePath
	
	$Search = FileFindFirstFile($SourceFolder & "\*.*")  

	While 1
		If $Search = -1 Then
			ExitLoop
		EndIf
		
		$File = FileFindNextFile($Search)
		If @error Then ExitLoop

		$FullFilePath = $SourceFolder & "\" & $File
		$FileAttributes = FileGetAttrib($FullFilePath)
		
		;MsgBox(64,"сообщение","$search = "&$search&@crlf &"$FullFilePath = "&$FullFilePath&@crlf&"$FileAttributes = "&$FileAttributes )
		
		If StringInStr($FileAttributes,"D") Then
			ScanFolder($FullFilePath)
		Else
			LogFile($FullFilePath)
		EndIf

	WEnd

	FileClose($Search)
EndFunc

Func LogFile($FileName)
	FileWriteLine(@ScriptDir & "\FileList.txt",$FileName)
	$FileCount += 1
	ToolTip($FileName,0,0)
EndFunc

func _exit()
	Exit
EndFunc
 
Верх