Name DataType Subtype Length dn_Folder DotNet System.IO.Directory.'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089' dn_Lst DotNet System.Collections.Generic.List`1.'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089' dn_Obj DotNet System.Object.'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089' i Integer dn_Obj := dn_Folder.GetFiles(FORMAT('c:\New'), '*.*'); dn_Lst := dn_Lst.List; dn_Lst.AddRange(dn_Obj); IF dn_Lst.Count > 0 THEN BEGIN FOR i := 0 TO dn_Lst.Count - 1 DO BEGIN message(FORMAT(dn_Lst.Item(i))); END; END;
Comments
-Mohana
http://mohana-dynamicsnav.blogspot.in/
https://www.facebook.com/MohanaDynamicsNav