2016-01-29 13:31 13 1 收藏

拷贝整个目录下所有子目录及文件的方法,拷贝整个目录下所有子目录及文件的方法

【 tulaoshi.com - ASP.NET 】

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:temp"))
    End Sub

来源:https://www.tulaoshi.com/n/20160129/1490495.html

看过《拷贝整个目录下所有子目录及文件的方法》的人还看了以下文章更多>>

QQ的安装目录下文件的用途

标签：电脑入门

在QQ的安装目录下以你的QQ号码为名字的文件夹里有几个关键文件，保存着你的QQ的一些信息，如果用好了它们，可以玩出一些有趣的花样。 MsgEx.db文件：是你正常登陆过QQ后生成的，如果删除该文件QQ就会无法正常登陆!不过，如果用其他QQ号码文件夹下的同名文件覆盖它，则可以正常登陆。这个是消息记录，要备份消息记录就是这个。 ew...

QQ安装目录下文件夹的作用

标签：电脑入门

在QQ的安装目录下以你的QQ号码为名字的文件夹里有几个关键文件，保存着你的QQ的一些信息，如果用好了它们，可以玩出一些有趣的花样。 1,MsgEx.db文件：是你正常登陆过QQ后生成的，如果删除该文件QQ就会无法正常登陆!不过，如果用其他QQ号码文件夹下的同名文在QQ的安装目录下以你的QQ号码为名字的文件夹里有几个关键文件，保存着你的QQ的一...

java对指定目录下文件读写操作介绍

标签：编程语言网络编程

最近因为项目的国际化的需要，需要对整个项目的100来个插件做国际化，这是一件痛苦的事情，因为纯体力劳动。为了省点工作量，想着能不能写个程序批处理了，减少点工作量，于是就有了下面的代码。 1.读取指定的（.java）文件：代码如下： public static String readFile(String path) throws IOException { File f = new File(path); St...

QQ目录下各文件用途不完全揭密

标签：电脑入门

打开QQ安装目录，你会发现里边的文件非常多，如果搞清楚它们每个的作用，那么你就可以完成不少在QQ常规操作情况下实现不了的目的，而且更加快捷，图老师小编收集了QQ目录下各个文件的作用说明，想成为QQ高手这个一定要认真看的哦。 QQ的安装根目录下的文件： ACodec.dll （音频聊天） +BQQApplication.dll （企业好友面...

文件与目录

标签：编程语言网络编程

strPcopy(BaseDbName,A_BaseName); gettemppath setlength(tmpFile,MAX_PATH); GetTempFileName(ExtractFilePath(application.ExeName),'',0,pchar(tmpFile)); ================================== 目录与文件 ======================================= uses FileCtrl; (1) 判...

查看更多精彩>>