baidu_38411250 2018-10-15 16:38 采纳率: 33.3%
浏览 1188
已采纳

(vc6)怎么将一个文件拷贝到指定目录下的所有子文件夹中

假设有一个文件a.html,需要将它发送到a目录下面的子文件夹下,a目录文件名不变,子文件夹名字每次开机会改变名字,小白一个,希望给个完整源码:能将a.html发送到指定目录下的所有子文件夹中

  • 写回答

4条回答 默认 最新

  • threenewbee 2018-10-16 02:26
    关注

    给你完整写了一个

    void GetFilePath(CString filename, CString filetitle, CString strDir);
    
    void CQ702697Dlg::OnButton1() 
    {
        // TODO: Add your control notification handler code here
        CFileDialog dlg(TRUE);
        CString filename = "";
        CString filetitle = "";
        if (dlg.DoModal() == IDOK)
        {
            filename = dlg.GetPathName();
            filetitle = dlg.GetFileTitle() + "." + dlg.GetFileExt();
        }
        else
        {
            return;
        }
        char lpDir[301];
        XBrowseForFolder(this->m_hWnd, "C:\\", -1, "Q702697", lpDir, 300, TRUE); 
        CString dir = (CString)lpDir;
        GetFilePath(filename, filetitle, dir);
    
    }
    
    void GetFilePath(CString filename, CString filetitle, CString strDir)
    {
        CFileFind finder;
        BOOL isNotEmpty=finder.FindFile(strDir+"*.*");
        while(isNotEmpty)
        {
            isNotEmpty=finder.FindNextFile();
            CString filename1=finder.GetFilePath();
            if(finder.IsDirectory())
            {
                if(!(finder.IsDots()||finder.IsReadOnly()))
                {
                    CString newfilename = filename1+"/"+filetitle;
                    CopyFile(filename, newfilename, FALSE);
                    GetFilePath(filename,filetitle,filename1+"/");
                }
            }
        }
    } 
    

    下载地址:
    https://download.csdn.net/download/caozhy/10723095

    运行效果:
    图片说明

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(3条)

报告相同问题?

悬赏问题

  • ¥20 keepalive配置业务服务双机单活的方法。业务服务一定是要双机单活的方式
  • ¥50 关于多次提交POST数据后,无法获取到POST数据参数的问题
  • ¥15 win10,这种情况怎么办
  • ¥15 如何在配置使用Prettier的VSCode中通过Better Align插件来对齐等式?(相关搜索:格式化)
  • ¥100 在连接内网VPN时,如何同时保持互联网连接
  • ¥15 MATLAB中使用parfor,矩阵Removal的有效索引在parfor循环中受限制
  • ¥20 Win 10 LTSC 1809版本如何无损提升到20H1版本
  • ¥50 win10 LTSC 虚拟键盘不弹出
  • ¥30 微信小程序请求失败,网页能正常带锁访问
  • ¥15 Matlab求解微分方程,如何用fish2d进行预优?