20-04-17, 09:10 PM
(آخر تعديل لهذه المشاركة : 20-04-17, 09:14 PM {2} بواسطة ياسر عبد الكريم.)
وعليكم السلام ورحمة الله وبركاته
أخي سليمان إذا كنت تقصد كود إنشاء مجلد في مسار معين هذا هو الكود
Public Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long
هذه دالة تقوم بالتأكد من مسار معين إذا كان موجود هذا المجلد في المسار تواصل وأن لم تجده تقوم بإنشائة كتالي
ضع الدالة في الإجراء العام
ثم في الكود إستدعي الدالة كتالي :
Call MakeSureDirectoryPathExists(App.Path & "\" & "2017")
طبعاً تنشئ المجلد في مسار البرنامج
ولنسخ الملفات من موقع إلى موقع إستخدم الدالة المرفقة مع الفيجوال
VBA.FileCopy "C:\ALHUMIDI\DataBase.mdb", App.Path & "\2017\DataBase.mdb"
أو لنقل
name "C:\ALHUMIDI\DataBase.mdb" As App.Path & "\2017\DataBase.mdb"
أخي سليمان إذا كنت تقصد كود إنشاء مجلد في مسار معين هذا هو الكود
Public Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long
هذه دالة تقوم بالتأكد من مسار معين إذا كان موجود هذا المجلد في المسار تواصل وأن لم تجده تقوم بإنشائة كتالي
ضع الدالة في الإجراء العام
ثم في الكود إستدعي الدالة كتالي :
Call MakeSureDirectoryPathExists(App.Path & "\" & "2017")
طبعاً تنشئ المجلد في مسار البرنامج
ولنسخ الملفات من موقع إلى موقع إستخدم الدالة المرفقة مع الفيجوال
VBA.FileCopy "C:\ALHUMIDI\DataBase.mdb", App.Path & "\2017\DataBase.mdb"
أو لنقل
name "C:\ALHUMIDI\DataBase.mdb" As App.Path & "\2017\DataBase.mdb"
ALHUMIDI Soft
