Discussion :

[elkamy]

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.

[neguib]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[elkamy]

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

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

[Maniak]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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