Danke unearth
Genau dies war mein Fehler. Habs nun doch schneller geschafft als ich gedacht hatte. War mein erstes Script mit einem GUI
Spoiler anzeigen
#Include <File.au3>
#Include <Array.au3>
#include "image_get_info.au3"
#include <GuiListView.au3>
#include <GUIConstants.au3>
$Standard = "D:\Test\"
[/autoit] [autoit][/autoit] [autoit]GUICreate("Falsches Dateiformat!",330,200,100,200,-1,$WS_EX_ACCEPTFILES)
$button = GuiCtrlCreateButton ("Beenden",130,170,70,20)
$listview = GuiCtrlCreateListView ("Bild|Verhältnis Ist|Verhältnis Soll",10,10,310,150, $LVS_SORTDESCENDING)
_GUICtrlListViewSetColumnWidth ($listview, 0, 100)
_GUICtrlListViewSetColumnWidth ($listview, 1, 90)
_GUICtrlListViewSetColumnWidth ($listview, 2, 90)
$Pfad = FileSelectFolder("Bitte den Pfad auswählen", "" ,"", $Standard) & "\"
$untergrenze = 1.48
$obergrenze = 1.52
$FileList = _FileListToArray($Pfad, "*.jpg")
If @Error=4 Then
MsgBox (0,"falscher Ordner?","Keine Dateien vorhanden")
Exit
EndIf
For $i = 1 To UBound($FileList)-1
$fehler = 0
$aInfo = _ImageGetInfo($Pfad & $FileList[$i])
$width = _ImageGetParam($aInfo, "Width")
$height = _ImageGetParam($aInfo, "Height")
If $width < $height Then
$format = $height / $width
ElseIf $width > $height Then
$format = $width / $height
Else
EndIf
If $format > $untergrenze Then
Else
$fehler = 1
EndIf
If $format < $obergrenze Then
Else
$fehler = 1
EndIf
IF $fehler = 1 Then
GUICtrlCreateListViewItem($FileList[$i] & "|" & Round($format, 3) & "|1,5", $listview)
Else
EndIf
Next
GuiSetState()
[/autoit] [autoit][/autoit] [autoit]Do
$msg = GuiGetMsg ()
Select
Case $msg = $button
EXIT
EndSelect
Until $msg = $GUI_EVENT_CLOSE
Gibt es eigentlich die Möglichkeit auch Unterordner mit in das Array einzubeziehen?