پیدا کردن درایو ویندوز

سلام

چگونه می توانم درایو ویندوز را پیدا کنم؟

مثلا

کد:

---

c:\

---

نه

کد:

---

c:\windows

---

چرا جواب نمیدین؟؟؟؟؟؟؟؟؟؟؟

سلام

من ویژوال بیسیک کار نکردم اما فکر کنم مطلب زیر بتونه کمکتون کنه .

کد:

---

http://vb-source-code.blogfa.com/post-45.aspx

---

موفق باشید :)

کد تابع توی یه ماژول :

Public Declare Function

GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer AsString, ByVal nSize As Long) As Long

lpBuffer

: مقدار اين بافر توسط تابع مقدار دهي مي شود و مقدار بر گشتي آن مسير نصب ويندوز خواهد بود.

nSize

: طول بافر lpBuffer است.

کد اجرایی هم توی Form_Load برنامه :

()Private Sub Form_Load

Dim WINPath As String

Dim StrBuffer As String

((StrBuffer = String(255, Chr$(0
(((WINPath = Left$(StrBuffer, GetWindowsDirectory(StrBuffer, Len(StrBuffer
MsgBox "Windows Folder : " & WINPath

End Sub

منم اینو می دونستم.

ولی من فقط \:c رو می خواستم نه c:\windows

خوب می تونی از همین هم استفاده کنی و یک مرحله برگردی عقب و برسی به \:c

ممنون از راهنمایی شما

مشکلم حل شد

با درستور زیرم میشه

%windir%

ارور می ده مشکل کجاست ؟

نقل قول:

---

نوشته شده توسط SMNsoft [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام

چگونه می توانم درایو ویندوز را پیدا کنم؟

مثلا

کد:

---

c:\

---

نه

کد:

---

c:\windows

---

---

سلام من دانشجوی رشته کامپیوتر هستم تو دبیرستان VB می خوندیم ولی حالا سی پلاس پلاس
ولی جوابت
ساده با دستور
Environ "Windir"
Label1.caption=Environ("windir")
برنامه رو بصورت پروژه برات نوشتم دانلود کن حجمش هم 2 کیلو بایته
لینک دانلود :

کد:

---

http://www.4shared.com/file/103132179/e3dc8b64/MicrosoftH_SMNsoft.html

---

موفق باشی