网络收藏

使用tnmftp控件上传的问题，在upload一个文件到某目录之前如何判断该目录下是否已经存在同名的文件？  
   
  谢谢大家~~

推荐阅读

nmftp1.list;  
   
  然后找文件

ftpdirectorylist属性：概属性返回当前目录的信息，它是一个类，声明如下：  
  tftpdirectorylist=class(tobject)  
  public  
            constructor   create;  
            destructor   destroy;override;  
            procedure   parseline(line:string);virtual;  
            procedure   clear;  
            property   attribute:tstringlist   read   fattribute;  
            property   name:tstringlist   read   fname;  
            property   size:tstringlist   read   fsize;  
            property   modifdate:tstringlist   read   fmodifdate;  
  end;  
  其中name返回文件名  
   
  parselist属性     声明：property   parselist:boolean;  
  设为true   就可以从ftpdirectorylist属性中得到文件的详细资料。包括文件名、大小、类型、赫最后修改日起。  
   
  list过程：返回ftp服务其中当前目录下的文件列表。  
   
  nlist过程：返回当前目录中的文件名列表，列表中的每一项将触发onlist事件  
   
  onlistitem事件：  
  声明：property   onlistitem:tnmlistitem  
  其中tnmlisttiem诗如下声明的：tnmlistitem=procedure(listing:string)   of   object;  
  当程序调用list或nlist时，每检索到一个文件就会触发这个事件。listing参数是检索到的项  
  。对于list来说，listing参数中包括文件名、长度、修改日起和文件属性，对于nlist来说，listing参数中只包括文件名。如  
  procedure   tform1.nmftr1listitem(listing:string);  
  begin  
      memo1.lines.add(listing);  
  end;

study  
  gz