> f = getfolderItem("images")
>
>- Check for nil and such -
>
> for LN =1 to f.Count
> if f.item(ln).visible and f.item(ln).name <> "." then
> Me.addRow f.Item(ln).name
> end if
> next
>
> No idea why the alias text is missing when listed.
As Arnaud suggested, use TrueItem instead of Item.
Me.addRow f.TrueItem(ln).Name
Now, you have to decide if you want to resolve aliases.
I you want them to resolve, then you would want to use TrueItem to add them
to the list, as above. Then you would want to open the files by using
TrueItem, as aliases are not pictures.
p = f.Item(ln).OpenAsPicture
Personally, I would ignore aliases using "Alias" to check if the file is an
alias. If it is alias, then do not add it to the list:
for LN =1 to f.Count
if f.item(ln).visible and f.item(ln).name <> "." and f.item(ln).Alias =
False then
Me.addRow f.Item(ln).name
end if
next
Note that I haven't tested any of this code...
HTH
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives:
<http://support.realsoftware.com/listarchives/lists.html>
