waeelahmed قام بنشر مارس 11, 2004 مشاركة قام بنشر مارس 11, 2004 أولاً أتقدم بالشكر لجميع القائمين على هذا المنتدى الرائع الذى بالفعل أستفدت مما يقدمه الكثير والكثير. ولى طلب أتمنى أن أجده ، وهو أول طلب لى ما هو الكود الذى يمكننى من خلاله معرفة اسم المجلد الخاص بالويندوز وذلك فى أكسيس 97 رابط هذا التعليق شارك More sharing options...
هشام علام قام بنشر مارس 11, 2004 مشاركة قام بنشر مارس 11, 2004 هذا هو الكود أخى الكريم .. تصمم نموذج وبه مربع نص وتسمى مربع النص 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 --------- تقبل تحياتى ،،،، رابط هذا التعليق شارك More sharing options...
waeelahmed قام بنشر مارس 13, 2004 الكاتب مشاركة قام بنشر مارس 13, 2004 اشكرك أخى hishampro ولقد قمت بتجربة ما ذكرت فظهرت لى رسالة compile error can't find project or library ويقوم بتحديد هذا السطر WindowsD = Space(144) وبالتحديد كلمة space فى انتظار ردك أخى رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر مارس 13, 2004 مشاركة قام بنشر مارس 13, 2004 جرب هذا الكود Dim fs, s Set fs = CreateObject("Scripting.FileSystemObject") s = fs.GetSpecialFolder(1) MsgBox s رابط هذا التعليق شارك More sharing options...
عبد الله فتحي قام بنشر مارس 14, 2004 مشاركة قام بنشر مارس 14, 2004 طيب ولو إنو الإستاذ محمد أجاب الإجابة الوافية .. فقط قم بتغيير الرقم واحد إلى صفر في هذا السطر s = fs.GetSpecialFolder(1) رابط هذا التعليق شارك More sharing options...
الردود الموصى بها