create new folder

السلام عليكم ورحمة الله وبركاته

يمكنك فعل ذلك عن طريق الدالة MkDir :

وذلك من خلال هذا الكود :

	Dim strFolderName As String

	strFolderName = Format(Now, "dd - mm - yyyy  hh.nn.ss ")

	If Dir("C:\" & strFolderName, vbDirectory) = "" Then MkDir ("C:\" & strFolderName)

توضيح الكود :

أولا:لابد عمل تنسيق خاص بإسم المجلد ( طالما تريد ان يكون اسمه بتاريخ والوقت الان ) حيث ان الـ Now يعود لنا بهذا التنسيق dd/mm/yyyy hh:nn:ss حيث ان علامتي الـ "" و "" غير مقبولاتان عند تسمية المجلدات والملفات .

فلابد من تنسيق خاص بك حتى تستطيع فعل ذلك .

ولفعل ذلك استخدم الداله Format

وهي كما توضح لك بالكود تقوم بتنسيق الوقت والتاريخ الحالي التي تعوده لنا الداله Now الى هذا التنسيق (dd - mm - yyyy hh.nn.ss ) وذلك في المتغير strFolderName

ثانيا : لابد من التأكد من وجود المجلد أساسا وذلك من خلال دالة Dir .( حتى لا يحدث اخطاء - فمن الامعقول انشاء مجلد بأسم موجود اصلا ) .

فا إذا لم يكن موجود يقوم بإنشائه عن طريق الداله MkDir .

بالتوفيق .........

A7med_prof

يفضل أستعمال دالة MakeSureDirectoryPathExists بدلا من MkDir

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long

مع نفس شرح الأخ أحمد و أستبدال الكود :

If Dir("C:\" & strFolderName, vbDirectory) = "" Then MkDir ("C:\" & strFolderName)

بـ :

If Dir("C:\" & strFolderName, vbDirectory) = "" Then MakeSureDirectoryPathExists ("C:\" & strFolderName)

للمزيد عن الدالة راجع MakeSureDirectoryPathExists

تمام بارك الله فيكم يا شباب

الأخ A7med_prof وmsayed2004 بصراحه شرح ممتاز وأكتر من اللى انا عاوزه جزاكم الله خيرا

ودأئما فى القمه