简单的函数命令:
   1、创造、删除、剪贴 文件夹
   2、复制、删除、剪贴 文件
   3、如何得到程序所在的路径
   4、如何获取文件的文件名
   5、如何判断文件夹里有多少个文件,并且得到所有的文件名请大家把函数具体写出来,小生这儿谢谢啦!!!

解决方案 »

  1.   

    function CreateDir(const Dir: string): Boolean;
    function RemoveDir(const Dir: string): Boolean;
    SHFileOperation(LPSHFILEOPSTRUCT lpFileOp);
    function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;
    function FindNext(var F: TSearchRec): Integer;
    procedure FindClose(var F: TSearchRec);
      

  2.   

    3. ExtractFilePath(ParamStr(0))
    4. ExtractFileName("fileabsolustepathwithname")