Hallo zusammen,
weil ich gerade sehe das auch ASPIRIN JUNKIE online ist .... soweit ich das sehe kommt die Funktion ja von Ihm
Ich bekomme, wenn ich die u.a. Funktion nutzen will, immer wieder die folgende Fehlermeldung.
Irgendwie habe ich inzwischen keine Idee mehr ...
Wahrscheinlich ganz einfach - wenn man es weiss
Wäre super toll wenn das gelöst würde, denn ich könnte die Funktion sehr gut gebrauchen, um hier im internen Projekt
die Migration vorranzutreiben .... DANKE schon mal im voraus
Error Otuput:
Skipping AU3check: Current version doesn't support the AutoIt3 v 3.3.9.5+ syntax.
Running:(3.3.10.2):J:\install_AIT\autoit3_x64.exe "C:\temp\new1.au3"
Press Ctrl+Alt+F5 to Restart or Ctrl+Break to Stop
"C:\temp\new1.au3" (35) : ==> Subscript used on non-accessible variable.:
$sFileList &= $sFile & ";" & _DateToDayValue($a_Time[0], $a_Time[1], $a_Time[2]) & $sDelim
$sFileList &= $sFile & ";" & _DateToDayValue($a_Time^ ERROR
AutoIt3.exe ended.rc:1
Spoiler anzeigen
#include <Array.au3>
#include <Date.au3>
$FileList = FileListToArrayWithDate(@DesktopDir)
_ArrayDisplay($FileList)
Func FileListToArrayWithDate($sPath, $sFilter = "*", $iFlag = 0)
Local $hSearch, $sFile, $sFileList, $sDelim = "|", $a_Time, $a_x
$sPath = StringRegExpReplace($sPath, "[\\/]+\z", "") & "" ; ensure single trailing backslash
If Not FileExists($sPath) Then Return SetError(1, 1, "")
If StringRegExp($sFilter, "[\\/:><\|]|(?s)\A\s*\z") Then Return SetError(2, 2, "")
If Not ($iFlag = 0 Or $iFlag = 1 Or $iFlag = 2) Then Return SetError(3, 3, "")
$hSearch = FileFindFirstFile($sPath & $sFilter)
If @error Then Return SetError(4, 4, "")
While 1
$sFile = FileFindNextFile($hSearch)
If @error Then ExitLoop
If ($iFlag + @extended = 2) Then ContinueLoop
$a_Time = FileGetTime($sPath & $sFile)
$sFileList &= $sFile & ";" & _DateToDayValue($a_Time[0], $a_Time[1], $a_Time[2]) & $sDelim
WEnd
FileClose($hSearch)
If Not $sFileList Then Return SetError(4, 4, "")
Local $a_Temp = StringSplit(StringTrimRight($sFileList, 1), "|")
Local $a_Ret[UBound($a_Temp)][2] = [[$a_Temp[0]]]
For $i = 1 To UBound($a_Temp) - 1
$a_x = StringSplit($a_Temp[$i], ";", 2)
$a_Ret[$i][0] = $a_x[0]
$a_Ret[$i][1] = $a_x[1]
Next
_ArraySort($a_Ret, 1, 1, UBound($a_Ret) - 1, 1)
Return $a_Ret
EndFunc;==>_FileListToArray
mfg
ugt100
