كود يعرفنى اسم مجلد الويندوز أكسيس 97

[waeelahmed]

أولاً أتقدم بالشكر لجميع القائمين على هذا المنتدى الرائع

الذى بالفعل أستفدت مما يقدمه الكثير والكثير.

ولى طلب أتمنى أن أجده ، وهو أول طلب لى

ما هو الكود الذى يمكننى من خلاله معرفة اسم المجلد الخاص بالويندوز وذلك فى أكسيس 97

[هشام علام]

هذا هو الكود أخى الكريم ..

تصمم نموذج وبه مربع نص وتسمى مربع النص WindowsD

----------

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

فى الحدث عن التحميل او الفتح

Private Sub Form_Load()

Dim W

Dim WindowsD As String

WindowsD = Space(144)

W = GetWindowsDirectory(WindowsD, 144)

Text1.Text = WindowsD

End Sub

---------

تقبل تحياتى ،،،،

[waeelahmed]

اشكرك أخى hishampro

ولقد قمت بتجربة ما ذكرت فظهرت لى رسالة

compile error

can't find project or library

ويقوم بتحديد هذا السطر

WindowsD = Space(144)

وبالتحديد كلمة

space

فى انتظار ردك أخى

[محمد طاهر عرفه]

جرب هذا الكود

 Dim fs, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    s = fs.GetSpecialFolder(1)
    MsgBox s

[عبد الله فتحي]

طيب ولو إنو الإستاذ محمد أجاب الإجابة الوافية ..

فقط قم بتغيير الرقم واحد إلى صفر في هذا السطر

   s = fs.GetSpecialFolder(1)