要想在计算机上动态的创建文件加该如何实现??另外想把某个位置上的一个文件夹中的内容拷贝到另一个指定的位置上去该如何实现??请各为帮忙解决!!1

解决方案 »

  1.   

    这个过程供建立目录使用,主要是FileCtrl单元提供的 MkDir只能建立不存在
     的一级目录,而对于象C:\WINDOWS\Desktop\a\a\a\这样的不能建立且有异常
     出现,所以写这个过程可以建立多级不存在的目录 }procedure Supper_MkDir(const value:string);
    var i,iSepPosition:integer;
        sTmpDir:array of string;
    begin
         setlength(sTmpDir,255);
         iSepPosition:=1;
         for i:=1 to length(value) do
             if value[i]='\' then
               begin
                 sTmpDir[iSepPosition]:=Copy(value,1,i-1);
                 inc(iSepPosition);
             end;
         sTmpDir[iSepPosition]:= value;
         try
            for i:=1 to iSepPosition do
               if not DirectoryExists(sTmpDir[i]) then
                  MkDir(sTmpDir[i]);
         except
            MessageDlg('建立目录:'+value+'出错!'+#13+#10+''+#13+#10+
                       '请检查目录名是否正确。', mtError, [mbOK], 0);
            raise;
         end;
    end;
      

  2.   

    if not DirectoryExists(sDir) then CreateDir(sDir)
      

  3.   

    ForceDirectories强不少
    复制文件用SHFileOperation