当前位置： 移动技术网 > IT编程>开发语言>.net > VB.NET拷贝整个目录下所有子目录及文件的实例代码

VB.NET拷贝整个目录下所有子目录及文件的实例代码

2017年12月12日  | 移动技术网IT编程  | 我要评论

3d舞台,暗夜蔷薇魅之伤,法证先锋3下载

复制代码 代码如下:

 public sub copyderictory(byval directorysrc as directoryinfo, byval directorydes as directoryinfo)
        dim strdirectorydespath as string = directorydes.fullname & "" & directorysrc.name
        if not directory.exists(strdirectorydespath) then
            directory.createdirectory(strdirectorydespath)
        end if
        dim f, fs() as fileinfo
        fs = directorysrc.getfiles()
        for each f in fs
            file.copy(f.fullname, strdirectorydespath & "" & f.name, true)
        next
        dim dirsrc, dirs() as directoryinfo
        dirs = directorysrc.getdirectories()
       // 递归调用自身
        for each dirsrc in dirs
            dim dirdes as new directoryinfo(strdirectorydespath)
            copyderictory(dirsrc, dirdes)
        next
    end sub
    private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click
        copyderictory(new directoryinfo("c:documents and settingsusernamefavorites"), new directoryinfo("g: emp"))
    end sub

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网