从目录中的文件复制到另一个

Question

我有这应该复制选定的文件，其目录是写在txtbox1写在txtbox2导演的文件夹，如下所示的应用程序：

代码：

Dim sourcepath As String = TextBox1.Text 
    Dim DestPath As String = TextBox2.Text 
    CopyDirectory(sourcepath, DestPath) 

称为子：

Private Shared Sub CopyDirectory(ByVal sourcePath As String, ByVal destPath As String) 
    If Not Directory.Exists(destPath) Then 
     Directory.CreateDirectory(destPath) 
    End If 
    For Each file__1 As String In Directory.GetFiles(Path.GetDirectoryName(sourcePath)) 
     Dim dest As String = Path.Combine(destPath, Path.GetFileName(file__1)) 
     File.Copy(file__1, dest) 
    Next 
    For Each folder As String In Directory.GetDirectories(Path.GetDirectoryName(sourcePath)) 
     Dim dest As String = Path.Combine(destPath, Path.GetFileName(folder)) 
     CopyDirectory(folder, dest) 
    Next 
End Sub 

这个代码将所有文件复制，不仅指定的一个。有人可以告诉我如何使这个副本只有选定的文件不是文件夹中的所有文件？

Answer 1

你把整个路径作为参数（是这样的：C：/someDirectory/filename.txt），而不是比较文件名在该目录中的文件名等。

而不是使用：

For Each file__1 As String In Directory.GetFiles(Path.GetDirectoryName(sourcePath)) 
    Dim dest As String = Path.Combine(destPath, Path.GetFileName(file__1)) 
    File.Copy(file__1, dest) 
Next 

尝试：

Dim sourceFileName = Path.GetFileName(sourcePath) 
For Each filePath As String in Directory.GetFiles(Path.GetDirectoryName(sourcePath)) 
    Dim filename As String = Path.GetFileName(filePath) 
    If sourceFileName = filename 
    'Do your copy code here 
    End If 
Next