Copier un dossier et tout son contenu
Contenu du snippet
Dim UIOption As Microsoft.VisualBasic.FileIO.UIOption
Private Sub CopieRepertoire(ByVal RepertoireSource As String, ByVal RepertoireDestination As String)
If My.Computer.FileSystem.DirectoryExists(RepertoireSource) Then
'si le répertoire de destination n'existe pas, celui-ci est créé
'voir l'aide pour plus de détails sur les options (progression, remplacer si fichier existe déjà ...)
My.Computer.FileSystem.CopyDirectory(RepertoireSource, RepertoireDestination, UIOption.OnlyErrorDialogs, FileIO.UICancelOption.ThrowException)
Else
MsgBox("Le répertoire source n'existe pas")
End If
End Sub
'Exemple d'utilisation
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
CopieRepertoire("C:\test", "C:\test2")
End Sub
Compatibilité : VB 2005, VB.NET 1.x
Disponible dans d'autres langages :
A voir également
- Copier un dossier et tout son contenu
- Relier un dossier ✓ - Forum PHP
- Copier le contenu d'une feuille excel dans une autre vba ✓ - Forum Visual Basic
- Que signifie actualiser un dossier - Forum VB.NET
- Vba copier un fichier et le renommer - Forum Visual Basic
- Vba copier une feuille dans un autre classeur sans ouvrir - Forum Visual Basic
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.