Not sure what you want exactly. Something like this? function TFMain.FDir(Cmd : string) : string; var sr: TSearchRec; FileAttrs: Integer; begin FileAttrs := faAnyFile; if Cmd = '' then Cmd := '\*.*';
if FindFirst(ExtractFileDir(ParamStr(0))+cmd, FileAttrs, sr) = 0 then result := ExtractFileDir(ParamStr(0))+cmd+'<br><table>'; begin repeat result := result + '<tr><td>'+sr.Name+ '</td><td>'+IntToStr(sr.Size)+ '</td><td>'+FormatDateTime('yyyy-mm-dd hh:nn:ss',FileDateToDateTime(sr.Time))+ '</td></tr>'+#10; until FindNext(sr) <> 0; FindClose(sr); end; result := result +'</table>'; end; It's a part of our applicationserver based upon the work of ics... albert ----- Original Message ----- From: "Fastream Technologies" <ga...@fastream.com> To: "ICS support mailing" <twsocket@elists.org> Sent: Wednesday, April 15, 2009 12:04 PM Subject: [twsocket] Remote file/folder selection routine for ICS with HTML/JS > Hello, > > Is there ready code for this available? If not, are there other people > needing such a feature? What kind of approach would you suggest? How much > should one be willing to pay for sponsoring such a work and to whom? > > Best Regards, > > SZ > -- > To unsubscribe or change your settings for TWSocket mailing list > please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket > Visit our website at http://www.overbyte.be > -- To unsubscribe or change your settings for TWSocket mailing list please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be