اقتباسبقى ممكنك تشرح دالة Createobject
createObject تقوم بعمل NEW
بدل استخدام
dim rs as new adodb.recordset
يمكن استخدام
dim rs as object او dim rs as recordset
وبدل عمل new نعمل createobject
set rs= createobject("adodb.recordset")
طبعا في مقارنة بين NEW & CreateObject وكل واحدة لها ميزات واستخدامات لكن لا مجال لذكرها في هذه المشاركة لكن لم ان اراد ان يستزيد من هذا الموضوع عليه بالبحث في المنتدى
اقتباسيطلع خطا في كودك اخي طارق وهو creatobject
هو كل الذي عملته في هذا الكود اني استخدمت مكتبة من مكتبات الويندوز وهي system32\scrrun.dll او ما يسمى ب filesystemobject لذلك للتعامل مع هذه المكتبة يجب اضافة مرجع لها كما يلي
vb6-->menu Project-->References ثم اضافة هذه المكتبة او البحث عن اسم Microsoft Scripting runtime
بعد ذلك يمكن استخدام مايلي بدل الطريقة السابقة
Dim fs As FileSystemObject Set fs = new FileSystemObject Dim FolderName As String FolderName = "c:\xx" If fs.FolderExists(FolderName) Then fs.DeleteFolder FolderName, True 'احذف المجلد مع وجود مجلدات به End If
ملاحظة :هذه المكتبة موجودة مع انظمة وبندوز 2000 وما فوق
أخي أنظر هذا المثال
micheal R jordan كتب:أخي أنظر هذا المثال
هذا المثال مثل الطريقة التي استخدمتها ولمن اراد ان يستخدم هذا المثال يجب اضافة مرجع الى
Microsoft Scripting Runtime
وهو ما تكلمت عنه سابقا ايضا
تم تعديل هذه المشاركة بواسطة TareqVB في 26 يونيو 2007 في 12:16
تم تعديل هذه المشاركة بواسطة Eng. Usama El-Mokadem في 17 ديسمبر 2007 في 19:24
Nothing is impossible, the word impossible itself says that: I M - Possible
هذا الموضوع مغلق.
