Kopieren einer Datei aus einem Verzeichnis zu einem anderen

Question

ich eine Anwendung, die eine ausgewählte Datei, deren Verzeichnis kopieren soll, wird in txtbox1 in einen Ordner des Regisseurs in txtbox2 geschrieben wie folgt:

Code:

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

Genannt sub:

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 

Dieser Code kopiert alle Dateien, die nicht bestimmungsgemäße nur einen. Kann mir bitte jemand sagen, wie man diese Unterkopie nur mit der ausgewählten Datei nicht alle Dateien im Ordner anlegt?

Answer 1

Sie nehmen den gesamten Pfad als Argument (etwa: C: /someDirectory/filename.txt) und vergleichen den Dateinamen nicht mit den anderen Dateinamen in diesem Verzeichnis.

Statt mit:

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 

Versuchen:

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