[VB.Net] Comment copier tout le contenu d'un dossier ?

Salut tous le monde!

Voila , je veux copier un dossier d'un endroit a un autre seulement , bah je trouve que le moyen de le deplacer , j'ai chercher un peu partout , pas moyen de trouver , dans la classe directory ya que la methode move.

si qq sait comment dupliquer un dossier

merci.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Shared Sub CopyDir(ByVal fromDirPath As String, ByVal toDirPath As String)   Dim f As String   If Not (toDirPath(toDirPath.Length - 1) = Path.DirectorySeparatorChar) Then toDirPath += Path.DirectorySeparatorChar   If Not Directory.Exists(toDirPath) Then Directory.CreateDirectory(toDirPath)   For Each f In Directory.GetFileSystemEntries(fromDirPath)   If Directory.Exists(f) Then : CopyDir(f, toDirPath & Path.GetFileName(f)) Else : File.Copy(f, toDirPath & Path.GetFileName(f), True) End If   Next   End Sub

---

Merci , c'est pas grave, ca arrive a tous le monde :P

en tout cas Merci beaucoup!!

escuse moi , mais ca ne marche pas

dans le code il me met une erreur sur toDirPath

(lexpression n'est pas un tableau ni une methode....)

c bizar nan?

merci

Les chaînes de caractères c'est bien, mais ne pas avoir à se prendre la tête sur les formats de chemins d'accès, c'est plus tranquille :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Public Class DirectoryService   Public Shared Sub CopyDirectory(ByVal sourcePath As String, ByVal destinationPath As String) CopyDirectory(New DirectoryInfo(sourcePath), New DirectoryInfo(destinationPath)) End Sub   Private Shared Sub CopyDirectory(ByVal source As DirectoryInfo, ByVal destination As DirectoryInfo) destination.Create()   For Each file As FileInfo In source.GetFiles() file.CopyTo(Path.Combine(destination.FullName, file.Name)) Next   For Each subDirectory As DirectoryInfo In source.GetDirectories() CopyDirectory(subDirectory, destination.CreateSubdirectory(subDirectory.Name)) Next End Sub   End Class

---