大家看看DELPHI能做到这一点吗？查询硬盘所有 的word文档，然后通过本地网传送给本地网的其他电脑 ( 积分: 100 )

你好。我想用DELPHI做到下面的功能，大家看看能实现吗？具体实现有多大难度？<br>我想做一个程序，它会自查看这台电脑有多少个盘符（假设有C，D，E），它会自动的把C,D盘，E盘，的word文档查询出来，然后传送给本地局域网的一台电脑上。<br>大家看看能实现吗？需要用到哪些知识。谢谢了。

不复杂，FindFirst,FindNext

你好。分先记上。能否细说一下，在此感谢不尽。怎么传送给指定本地网络的一台电脑（指定的电脑可以将E盘做共享。）。或者有相关例子吗？如果让上面这位哥哥写需要多少MONEY？真诚的。

我帮你做做看

function&nbsp;DaFileCopy(sourdirstr,tardirstr:AnsiString):boolean;<br>var<br>&nbsp;&nbsp;&nbsp;SeRec:TSearchRec;<br>begin<br>&nbsp;&nbsp;&nbsp;CreateDir(tardirstr);<br>&nbsp;&nbsp;&nbsp;Result:=true;<br>&nbsp;&nbsp;&nbsp;if&nbsp;DirectoryExists(tardirstr)&nbsp;and&nbsp;DirectoryExists(sourdirstr)&nbsp;&nbsp;then<br>&nbsp;&nbsp;&nbsp;try<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if(&nbsp;FindFirst(sourdirstr+'/*.DOC',faAnyFile,SeRec)=0)&nbsp;&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;repeat<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;((SeRec.Name&lt;&gt;'.')&nbsp;and&nbsp;(SeRec.Name&lt;&gt;'..'))&nbsp;&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;SeRec.Attr=faDirectory&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;not&nbsp;DaFileCopy(sourdirstr+'/'+SeRec.Name,tardirstr+'/'+SeRec.Name)&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Result:=false;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;else&nbsp;if&nbsp;SeRec.Attr=$00000020 &nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CopyFile(Pchar(sourdirstr+'/'+SeRec.Name),Pchar(tardirstr+'/'+SeRec.Name),true);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;until&nbsp;FindNext(SeRec)&nbsp;&lt;&gt;&nbsp;0;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FindClose(SeRec);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;except<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Result:=false;<br>&nbsp;&nbsp;&nbsp;end<br>&nbsp;&nbsp;&nbsp;else<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Result:=false;<br>end;

需要知识：<br>&nbsp;&nbsp;&nbsp;遍历<br>&nbsp;&nbsp;也可以采用代码动态设置共享目录，<br><br>&nbsp;&nbsp;如果不采用共享的方法，就复杂一些，需要开发客户端和服务端程序，一发一收。。<br><br>&nbsp;&nbsp;qq:79627128

多人接受答案了。