سؤال / نسخ الملفات و المجلدات من مجلد الى اخر

filecopy("c:\t.txt","d:\d.txt")

هذه هي الطريقة حيث تضع في الاول اسم الملف مع مكان وجوده و الثاني الملف الذي تريد النسخ فيه مع مكان وجوده و شكراً

شكرا جزيلا اخي العزيز

هل تنفع هذه الطريقة لنسخ مجلد باكمله مع محتوياته ؟

ارجو الافاده

مع انني حاولت بتجربتها لنسخ المجلدات ولم تنجح ، فهل هناك اسلوب اخر لنسخ مجلد مع محتوياته ؟

وفقكم الله

جرب

 Public Function CopyDirectory(ByVal source As String, ByVal destination As String)
		Try


		Dim currentDirectory As DirectoryInfo = New DirectoryInfo(source)
		Dim file As FileInfo

		For Each file In currentDirectory.GetFiles()
			file.CopyTo(Path.Combine(destination, file.Name))
		Next

		Dim di As DirectoryInfo

		For Each di In currentDirectory.GetDirectories()

			Dim subDirectory As String = Path.Combine(destination, di.Name)
			Directory.CreateDirectory(subDirectory)

			CopyDirectory(di.FullName, subDirectory)

			Next
		Catch ex As Exception
			MsgBox(ex.Message)
		End Try
	End Function

مع مراعاه استيراد الفضاء System.IO