نسخ مجلد

السلام عليكم

أخى الكريم شمس الزناتي

راجع الموضوع شرح لبعض إستخدامات المكتبه, Microsoft Scripting Runtime

سوف تجده فى التوقيع الخاص بى

تجد فيه ما تريد بإذن الله

Dim fso
	Dim sfol As String, dfol As String
	sfol = "C:\-----------"	   ' change to match the source folder path
	dfol = "d:\-----------"	   ' change to match the destination folder path
	Set fso = CreateObject("Scripting.FileSystemObject")
	If Not fso.FolderExists(dfol) Then
		fso.CopyFolder sfol, dfol
	 Else
		MsgBox dfol & " already exists!", vbExclamation, "Folder Exists"
	End If

مع شكري