Computerverzeichnis einlesen


Dim AnzahlBilder
Dim ListeBilder                              ' Array für die Bilder ohne () definieren!, sonst funktiniert Split() nicht
AnzahlBilder = FF_GetImageCount
 
if AnzahlBilder = 0 then                     ' kein Bild markiert, es werden alle Bilder berücksichtigt
     ListeBilder = split(FF_GetSelection(0), vbNewLine)
     AnzahlBilder = ubound(ListeBilder) + 1
else                                         ' es wurden Bilder markiert, nur diese werden berücksichtigt
     ListeBilder = split(FF_GetSelection(1), vbNewLine)
     AnzahlBilder = ubound(ListeBilder) + 1
end if
 
'mit FF_GetSelection(2) erhält man alle Bilder der aktuellen Bilderliste
'mit FF_GetSelection(3) erhält man die selektierten Bilder der aktuellen Bilderliste