[Microformt]

(12-11-14, 08:41 PM)Ahmed_Mansoor كتب : اهلا اخي الكريم ، تستطيع جلب مسار الوندوز مهما كان اصداره بواسطة هذه الدالة التي ترجع لك مسار مجلد الوندوز ، ثم بعد ذلك أضف إسم مجلد السيستم٣٢ أو إسم مجلد السيستم على المسار المرجع لك ، توضيح :

كود :

Dim zWindowsDirPath As String
Dim zDataBasePath As String

 zWindowsDirPath = Environ$("windir")

zWindowsDirPath = Trim$(zWindowsDirPath)

IF Right$(zWindowsDirPath , 1) <> "\" Then
    zWindowsDirPath = zWindowsDirPath & "\"
End IF

zDataBasePath = zWindowsDirPath & "system\DB.dll"

اخي العزيز
 السلام عليكم ورحمة وبركاته
 انا جربت الفكره على برنامجي المرفق ولم تنجح  نامل المساعده إذا امكن ذلك ؟؟
 والله يحفظكم ويرعاكم ويجعل الجنه داركم الاخير