关于用socket拷贝整个文件夹问题

本人想通过delphi的serversocket拷贝整个文件夹到客户端。
是否有非递归的简单点的方法，各位高手请指点一二。