Hey,
was mache ich hier falsch??
[autoit]Func _checknewest()
Local $icount, $sNewest, $iNewest, $sChecked = ''
_GUICtrlListView_DeleteAllItems($LVNP)
$icount = _GUICtrlListView_GetItemCount($LV)
For $i = 0 To $icount - 1
$ListViewText = StringRegExpReplace(_GUICtrlListView_GetItemText($LV, $i), '(.+\\).*', '$1')
If Not StringInStr($sChecked, $ListViewText) Then
$sChecked &= $ListViewText
$aImageList = _FileListToArray($imagepath & $ListViewText, '*', 1)
If Not @error Then
$sNewest = '0000/00/00'
$iNewest = 0
For $j = 1 To $aImageList[0]
$sDate = StringRegExpReplace(FileGetTime($imagepath & $ListViewText & '\' & $aImageList[$j], 0, 1), '(\d{4})(\d{2})(\d{2}).+', '$1/$2/$3')
If $sDate > $sNewest Then
$sNewest = $sDate
$iNewest = $j
EndIf
Next
GUICtrlCreateListViewItem($ListViewText & $aImageList[$iNewest], $LVNP)
Else
MsgBox(0, 'Fehler', 'Keine Dateien gefunden!')
EndIf
EndIf
Next
_newest()
EndFunc ;==>_checknewest
Func _newest()
; _GUICtrlListView_DeleteAllItems($LVNP)
Local $icount = _GUICtrlListView_GetItemCount($LVNP)
For $i = 0 To $icount - 1
$ListViewText = _GUICtrlListView_GetItemTextArray($LVNP, $i)
_ArrayDisplay($ListViewText)
$sLog = FileRead(@ScriptDir & '\history.log') ; hier kann man sich das FileOpen sparen
$ti = FileGetTime($imagepath & $ListViewText[1], 1)
ConsoleWrite($ListViewText & $imagepath & $ListViewText[1] & @CRLF)
If Not @error Then
$yyyymd = $ti[0] & "/" & $ti[1] & "/" & $ti[2]
If @error Then Return
EndIf
If StringInStr($sLog, $ListViewText[1] & ';' & $yyyymd) Then
[/autoit][autoit][/autoit][autoit]; GUICtrlCreateListViewItem($ListViewText[1], $LVNP)
_GUICtrlListView_DeleteItem($lvnp, $ListViewText[1])
;Return
; GUICtrlCreateListViewItem($ListViewText[1], $LVNP)
EndIf
Next
EndFunc ;==>_checkap
Kriege einen fehler in der zeile 40 einen array habe ich _arraydisplay in zeile 38 ist erfolgreich,
jemand eine idee?
Danke
SubZero