如何查找另一台机子上是否有某个文件(100分)

  • 主题发起人 主题发起人 fisher2003
  • 开始时间 开始时间
F

fisher2003

Unregistered / Unconfirmed
GUEST, unregistred user!
各位高手:<br> &nbsp; &nbsp;我想查找另外一台机子上某个文件夹下,是否有某个文件,不知道怎么实现,请各位高手赐教!不胜感激!!!
 
假如某一个目录下有几个文件,例如(工人工资2003年12月已经发.abc 领导工资2003年12月未发.abc 流氓工资2003年12月核定.abc)三个文件,而我要对三个都进行操作,操作的依据是时间等于2003年12月,在这里面除了字符串2003年12月和后缀名 .abc是固定的外,其它都是不一定的,请问,在程序中,如何获取这三个文件名?在 DELPHI 6 中,获取文件的函数又是哪个?谢谢(林立峰) &nbsp;<br> &nbsp; &nbsp;<br> &nbsp; &nbsp; 可以使用FindFirst和FindNext函数查找文件,如: <br> &nbsp; &nbsp;begin <br> &nbsp; &nbsp; Found := FindFirst(&quot;c:/dir/*2003年12月*.abc&quot;, Attr, SearchRec); <br> &nbsp; &nbsp; while Found = 0 do <br> &nbsp; &nbsp; begin <br> &nbsp; &nbsp; ProcessSearchRec(SearchRec); <br> &nbsp; &nbsp; Found := FindNext(SearchRec); <br> &nbsp; &nbsp; end; <br> &nbsp; &nbsp; FindClose(SearchRec); <br> &nbsp; &nbsp;end; <br> &nbsp; &nbsp; <br> &nbsp; &nbsp; <br> &nbsp; &nbsp;TSearchRec类型定义如下: <br> &nbsp; &nbsp; type <br> &nbsp; &nbsp; TSearchRec = record <br> &nbsp; &nbsp; Time : Integer; <br> &nbsp; &nbsp; Size : Integer; <br> &nbsp; &nbsp; Attr : Integer; <br> &nbsp; &nbsp; Name : TFileName; <br> &nbsp; &nbsp; ExcludeAttr : Integer; <br> &nbsp; &nbsp; FindHandle : THandle; <br> &nbsp; &nbsp; FindData : TWin32FindData; <br> &nbsp; &nbsp; end; <br> &nbsp; &nbsp; <br> &nbsp; &nbsp;当利用FindFirst和FindNext函数找到一个文件后,利用这个类型可以获得文件的属性、大小和修改时间等信息。
 
首先谢谢高手的指点,不过我是要在一台机子A上,去看机子B上的一个目录下,是否有某个文件,文件名已知。例如,看机子B上C:/my/下是否有文件aa.txt,而我的机子是A。
 
用这个可以的,不过没试过:fileexists
 
如果nt系统并且有权限<br>if fileexists('//B机IP/C$/my/aa.txt') then showmessage('存在');<br>如果9x就共享
 
没有共享, 或者需要登陆的话, 看来上面的程序是没有用的哦。
 
我已经搞出来了,因为luzhouman和duhai_lee的启示,是需要共享的,我是用 fileexists('//B机/my/aa.txt'),共享my文件夹。谢谢各位高手的指点。
 

Similar threads

回复
0
查看
1K
不得闲
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部