复制文件夹和排除文件夹

Question

我有一个代码，通过文本框将文件夹复制到另一个位置。 Textbox1其中用户可以指定要复制的文件夹，并且textbox2用户可以浏览目标文件夹。

如果Textbox1是“我的文档”发生一个错误说法的路径：

访问路径C:\Users\%USERNAME%\Documents\My Music被拒绝。

“我的音乐”，是在“我的文档”被选中为一个隐藏文件夹“隐藏受保护的操作系统文件”的窗口7.我使用Visual Studio 2005和新的VB.net，任何人可以拿看看这段代码并告诉我一种排除要复制的文件夹的方法？

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click 
    Dim fs As Object = CreateObject("Scripting.FileSystemObject") 

    Dim sFolderpath As String = TextBox1.Text 
    Dim sourceFolderName As String = System.IO.Path.GetFileName(sFolderpath) 

    Dim strDate As String = DateTime.Now.ToString("yyyy-MM-dd") 
    Dim dFolderpath As String = System.IO.Path.Combine(TextBox6.Text, strDate) 
    fs.createfolder(dFolderpath) 
    dFolderpath = System.IO.Path.Combine(dFolderpath, sourceFolderName) 
    fs.createfolder(dFolderpath) 

    fs.copyfolder(sFolderpath, dFolderpath) 
End Sub 

Answer 1

我建议将问题分解为4个子目录。首先是两个子目录，允许用户选择他们想要的源文件夹和目标文件夹。开始复制的按钮单击事件，最后是实际处理复制的子事件。

试试这个关于大小：

Dim CopyFromPath As String 
Dim CopyToPath As String 

Private Sub TextBox1_MouseClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.MouseClick 
    Dim fldbroser1 As New FolderBrowserDialog 
    fldbroser1.RootFolder = Environment.SpecialFolder.MyMusic 
    fldbroser1.ShowDialog() 
    CopyFromPath = fldbroser1.SelectedPath 
End Sub 

Private Sub TextBox2_MouseClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.MouseClick 
    Dim fldbroser1 As New FolderBrowserDialog 
    fldbroser1.RootFolder = Environment.SpecialFolder.MyComputer 
    fldbroser1.ShowDialog() 
    CopyToPath = fldbroser1.SelectedPath 
End Sub 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    CopyAllFiles(CopyFromPath, CopyToPath) 
End Sub 

Private Sub CopyAllFiles(ByVal CopyFromPath As String, ByVal CopyToPath As String) 
    If Not Directory.Exists(CopyToPath) Then 
     Directory.CreateDirectory(CopyToPath) 
    End If 

    For Each filee As String In Directory.GetFiles(Path.GetDirectoryName(CopyFromPath)) 
     Dim dest As String = Path.Combine(CopyToPath, Path.GetFileName(filee)) 
     File.Copy(filee, dest) 
    Next 

    For Each folder As String In Directory.GetDirectories(Path.GetDirectoryName(CopyFromPath)) 
     Dim dest As String = Path.Combine(CopyToPath, Path.GetFileName(folder)) 
     CopyAllFiles(folder, dest) 
    Next 
End Sub 

您需要导入System.IO这个工作。如果您在代码方面有问题，请随时提出任何问题。祝你好运学习VB，它有时可能很烦人，但它非常有用。