12-11-14, 08:41 PM
اهلا اخي الكريم ، تستطيع جلب مسار الوندوز مهما كان اصداره بواسطة هذه الدالة التي ترجع لك مسار مجلد الوندوز ، ثم بعد ذلك أضف إسم مجلد السيستم٣٢ أو إسم مجلد السيستم على المسار المرجع لك ، توضيح :
كود :
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"
