[Файловая система] Как получить список файлов в папке и записать его в отдельный файл?

[Danzo]

Т.е., есть папка C:\dir1\dir2
Нужно получить список файлов из папки "dir2" и записать список только имен файлов с раширением например "*.txt", в отдельный файл.

З.Ы. Прочитал темы как получить список файлов и показать его на экране, но не могу понять как же его в файл записать \=

 

[madmasles]

Danzo,

_FileListToArray()
_FileWriteFromArray()

 

[Danzo]

То что нужно =) Вот только зачем он пустую строку в конце создает..

 

[MnM]

Вот только зачем он пустую строку в конце создает..

Потому что в библиотеке запись в файл имеет такой вид:

FileWrite($hFile, $a_Array[$x] & @CRLF)

Где не происходит обрезание последнего переноса строки.
С некоторой другой стороны это удобно, вдруг потребуется еще что нибудь записать в файл, что бы не было "наслойки текст на текст".

 

[AZJIO]

Danzo
Тут все варианты, которые существуют: http://www.autoitscript.com/forum/topic/133224-filesearch-foldersearch/?fromsearch=1

Справка по функции

#include <FileOperations.au3>

$sPath = 'C:\dir1\dir2'
; $sPath = 'C:\WINDOWS\system32'
$sFileList = _FO_FileSearch($sPath, '*.txt', True, 0, 2, 0)
MsgBox(0, '*.txt', $sFileList)

 

[exHalfer]

Некропост, ну да ладно, вдруг пригодится.

Решение с GUI. Отмечает какие файлы уже записаны в файл, можно отметить нужные файлы для записи

#include <TreeViewConstants.au3>
#include <GuiTreeView.au3>
#include <GuiConstantsEx.au3>
#include <File.au3>

Opt("GUIOnEventMode", 1)

$listFile = @ScriptDir&'\plugins.inf'
$files = _FileListToArray(@ScriptDir,'*.txt') ;читаем файлы в папке
If @error > 0 Then
    MsgBox (0,'','Файлы/папки не найдены.')
    Exit
EndIf
$sText = FileRead($listFile) ;Читаем файл
$aLines = StringSplit($sText, @CRLF, 1) ;Разбиваем текст на строки, строки помещаем в массив

GUICreate('',400,400)
GUISetOnEvent($GUI_EVENT_CLOSE, "OnExit")
$list = GUICtrlCreateTreeView(10,10,350,350,$TVS_CHECKBOXES)

For $i = 1 To $files[0] Step + 1
   $a = GUICtrlCreateTreeViewItem($files[$i],$list)
   For $c = 1 To $aLines[0] Step +1
      If StringInStr($aLines[$c], $files[$i]) Then
         GUICtrlSetState($a,$GUI_CHECKED)
      EndIf
   Next
Next

$SaveList = GUICtrlCreateButton('Save',360,10,35)
GUICtrlSetOnEvent($SaveList, "SaveList")
$CheckAll = GUICtrlCreateButton('All',360,40,35)
GUICtrlSetOnEvent($CheckAll, "CheckAll")
$CheckNone = GUICtrlCreateButton('None',360,70,35)
GUICtrlSetOnEvent($CheckNone, "CheckNone")
$CheckInvert = GUICtrlCreateButton('Invert',360,100,35)
GUICtrlSetOnEvent($CheckInvert, "CheckInvert")

GUISetState()

while 1
   Sleep(100)
WEnd

Func SaveList()
   FileSetAttrib($listFile,"-RASHNOT",1)
   FileDelete($listFile)
   $asa = _GUICtrlTreeView_GetFirstItem($list)
   $itChecked = _GUICtrlTreeView_GetChecked($list,$asa)
   $itName = _GUICtrlTreeView_GetText($list,$asa)
   If $itChecked = 1 Then
	  FileWriteLine($listFile,$itName)
   EndIf
   for $i = 1 to _GUICtrlTreeView_GetCount($list)-1 Step + 1
	  $asa = _GUICtrlTreeView_GetNextSibling($list,$asa)
	  $itChecked = _GUICtrlTreeView_GetChecked($list,$asa)
	  $itName = _GUICtrlTreeView_GetText($list,$asa)
	  If $itChecked = 1 Then
		 FileWriteLine($listFile,$itName)
	  EndIf
   Next
EndFunc

Func CheckAll()
   $asa = _GUICtrlTreeView_GetFirstItem($list)
   _GUICtrlTreeView_SetChecked($list,$asa,1)
   for $i = 1 to _GUICtrlTreeView_GetCount($list)-1 Step + 1
	  $asa = _GUICtrlTreeView_GetNextSibling($list,$asa)
	  _GUICtrlTreeView_SetChecked($list,$asa,1)
   Next
EndFunc

Func CheckNone()
   $asa = _GUICtrlTreeView_GetFirstItem($list)
   _GUICtrlTreeView_SetChecked($list,$asa,0)
   for $i = 1 to _GUICtrlTreeView_GetCount($list)-1 Step + 1
	  $asa = _GUICtrlTreeView_GetNextSibling($list,$asa)
	  _GUICtrlTreeView_SetChecked($list,$asa,0)
   Next
EndFunc

Func CheckInvert()
   $asa = _GUICtrlTreeView_GetFirstItem($list)
   $state = _GUICtrlTreeView_GetChecked($list,$asa)
   If $state = 'True' Then
	  _GUICtrlTreeView_SetChecked($list,$asa,0)
   Else
	  _GUICtrlTreeView_SetChecked($list,$asa)
   EndIf
   For $i = 1 to _GUICtrlTreeView_GetCount($list)-1 Step + 1
	  $asa = _GUICtrlTreeView_GetNextSibling($list,$asa)
	  $state = _GUICtrlTreeView_GetChecked($list,$asa)
	  If $state = 'True' Then
		 _GUICtrlTreeView_SetChecked($list,$asa,0)
	  Else
		 _GUICtrlTreeView_SetChecked($list,$asa)
	  EndIf
   Next
EndFunc

Func OnExit()
   If Not FileExists($listFile) Then
      FileWrite($listFile,'')
   EndIf
   Exit
EndFunc