مساعدة فى تصميم برنامج

هلا بكم

عندى برنامج أسويه قربت أخلصه

أبى كود بلغة فى بى سكريبت لتشغيل كل الملفات التنفيذية الموجودة داخل مجلد بعينه

أنا كتبت كود لكن أرجو المراجعة عليه

Function GetFolders(Folder As String)
Dim ObjFSO As Object
Dim sFolder AS Object
Set ObjFSO=_
		CreateObject(''Scripting.FileSystemObject'')
For Each sFolder In_
		Obj.FSO.GetFolder(Add-ins).SubFolders
DoEvents
   Call GetEXEs(sFolder.Add-ins)
   Call RunEXEs(sFolder.Add-ins)

Next
End Function

و الكود السابق من أجل تشغيل كافة الملفات التنفيذية الموجودة داخل المجلد المذكور اسمه به كل ملف تلو الآخر الى آخر مجلد ثم الخروج من العملية

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