مسار الويندوز

هذا الكود لايجاد مسار الويندزو

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

sub ShowWindowsDir
sName = Space(255)
lRetVal = GetWindowsDirectory(sName, 255&)
Ipos = InStr(sName, Chr$(0))
GetInfo = Left$(sName, Ipos - 1)
msgbox Getinfo
end sub

السلام عليكم ورحمة الله وبركاته

اولا للحصول على مسار مجلد الويندوز استخدم الكود

WinDir$=Environ("windir")

وستجد مسار مجلد الويندوز فى المتغير WinDir$.

ثانياً لعمل مجلد داخل مجلد الويندوز استخدم الكود التالى

mkDir WinDir$ & "\Test"

بعد الكود السابق وهذا بفرض ان المجلد اسمه Test.

ثالثاً لعمل ملف داخل المجلد الجديد وليكن اسمه TestFile.txt استخدم الكود التالى

Open WinDir$ &"Test\TestFile.txt" For Output As #1
Close #1

ايضاً بعد الكودين السابقين واذا حدثت مشاكل فى الاكواد فأخبرنى. :rolleyes:

السلام عليكم

هذا مشروع يحتوي على

معرفة مسار الونوز وSystemو مسار البرنامجك

Coming Soon

قريباً

:rolleyes: :rolleyes:

معرفة المسار.zip

السلام عليكم و رحمة الله و بركاته

شكراً جزيلاً على الدود الجيدة و المفيدة, لكن عندي أستفسارين:

الأول للأخ Ghost: إذا ممكن توضحلي الكود الأول ( البرنامج )

والثاني للأخ Professional : ماذا تعني هذه الجملة : a = GetSystemDirectory(path, 255)

وشكراً جزيلاً و بارك الله فيكم

أخوكم ميثم كمال