La copie d'un fichier à partir d'un répertoire à un autre

Question

J'ai une application qui est censé copier un fichier sélectionné dont le répertoire est écrit dans txtbox1 dans un dossier de directeur écrit en txtbox2 comme suit:

Code:

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

appelé sous:

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 

Ce code copie tous les fichiers, et non celle spécifiée uniquement. Quelqu'un peut-il s'il vous plaît me dire comment faire cette sous-copie seulement le fichier sélectionné ne pas tous les fichiers dans le dossier?

Answer 1

Vous prenez le chemin entier comme argument (quelque chose comme ceci: C: /someDirectory/filename.txt) et ne comparez pas le nom de fichier aux autres noms de fichiers dans ce répertoire.

Au lieu d'utiliser:

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 

Essayez:

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