Leeres Array
Oliver
ich werte Logfiles in bestimmten Archiven aus. Dabei verwende ich die Array-Funktion.
Leider sind die Archive auch manchmal leer und damit auch das Array.
sPath = Worksheets("Menue").Cells(FirstToolRow + Tool, 16) '"W:\log"
sPattern = Suchmuster$ '"*EventLog*.log"
arr = arrAll(sPath, sPattern)
'*** in der nächsten Zeile führt das "leere" Array zum Laufzeitfehler=9 ********
For iCounter = 1 To UBound(arr)
Cells(iCounter + 1, 2) = sPath & arr(iCounter)
Gibt es eine "saubere" Lösung, mit der man abfragen kann, ob ein Array leer ist?
If arr0 oder If arr="" funktionieren nicht! Schlimmstenfalls schicke ich den Laufzeitfehler mit on error... ins Nirvana.
Hat jemand vielleicht eine bessere Lösung?
Liebe Grüsse vom wilden Olli;-)