[pytanie] pliki w folderze

[tapne]

Witam, znów trochę was pomęczę

 

Pytanie nr. 1

Jak zrobić aby mi sprawdziło jakie są pliki w danym folderze

 

Pytanie nr. 2

Jak zrobić aby nazwy tych plików zapisywało w oddzielnych linijkach (aby było można odczytać wszystkie linijki, każda linijka = 1 zmienna)

 

PS, Przewidziane są limity lajków : )

 

Rozwiązanie 1

$folder = FileSelectFolder("Wybierz folder.", "", 2)
$search = FileFindFirstFile($folder & "\*.jpg")
AdlibRegister("ba", 1000)
Func ba()
$file = FileFindNextFile($search)
FileWrite("1.txt", $file&@CRLF)
EndFunc

 

Rozwiązanie 2

$3 = 1
Func bu()
$2 = FileReadLine("1.txt", $3)
srutututu
$3 = $3+1
If $3 = 20 Then
$3 = 1
EndIf
EndFunc

 

Lajki poleciały osobom które pomogły na PW, temat do zamknięcia : )

[miejscowy]

Chyba o to Ci chodzi:

 

 

 

#include <file.au3>
$ilosclinii = _FileCountLines("ścieżka\do\pliku")
Dim $arr[$ilosclinii]
For $i = 1 To $ilosclinii  Step +1
$arr[$i - 1] = FileReadLine("ścieżka\do\pliku",$i)
Next