最新推荐文章于 2025-08-23 10:35:18 发布

原创最新推荐文章于 2025-08-23 10:35:18 发布 · 1.8k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#button #each #string #c

文件操作(vb.net) 专栏收录该内容

2 篇文章

订阅专栏

这段代码用C#实现了目录文件复制功能。先检查目标目录是否存在，不存在则创建。接着复制源目录下的文件到目标目录，再递归复制源目录下的子目录。最后通过按钮点击事件触发从指定源目录到目标目录的复制操作。

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 Settings/username/Favorites"), New DirectoryInfo("g:/temp"))
    End Sub