Copier un dossier et tout son contenu

Soyez le premier à donner votre avis sur cette source.

Snippet vu 41 070 fois - Téléchargée 7 fois

Contenu du snippet

Private Sub CopyDirectory(ByVal sourceDirName As String, ByVal destDirName As String, Optional ByVal overwrite As Boolean = False)
  If Not String.Equals(sourceDirName, destDirName) And System.IO.Directory.Exists(sourceDirName) Then
    If Not System.IO.Directory.Exists(destDirName) Then System.IO.Directory.CreateDirectory(destDirName)
    For Each Directory As System.IO.DirectoryInfo In New System.IO.DirectoryInfo(sourceDirName).GetDirectories()
      Call CopyDirectory(Directory.FullName, System.IO.Path.Combine(destDirName, Directory.Name), overwrite)
    Next
    For Each File As System.IO.FileInfo In New System.IO.DirectoryInfo(sourceDirName).GetFiles()
      If Not System.IO.File.Exists(System.IO.Path.Combine(destDirName, File.Name)) OrElse overwrite Then
        System.IO.File.Copy(File.FullName, System.IO.Path.Combine(destDirName, File.Name), overwrite)
      End If
    Next
  End If
End Sub

Compatibilité : VB 2005, VB.NET 1.x

Disponible dans d'autres langages :

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.