PDA

نسخه کامل مشاهده نسخه کامل : پیدا کردن درایو ویندوز


SMNsoft
08-04-2009, 20:40
سلام

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

مثلا


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

نه


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
SMNsoft
10-04-2009, 11:37
چرا جواب نمیدین؟؟؟؟؟؟؟؟؟؟؟
mahdi7610
10-04-2009, 11:56
سلام

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


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

موفق باشید :)
samiblog
10-04-2009, 17:19
کد تابع توی یه ماژول :


Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, 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
SMNsoft
13-04-2009, 20:51
منم اینو می دونستم.

ولی من فقط \:c رو می خواستم نه c:\windows
samiblog
14-04-2009, 09:54
خوب می تونی از همین هم استفاده کنی و یک مرحله برگردی عقب و برسی به \:c
SMNsoft
15-04-2009, 21:03
ممنون از راهنمایی شما

مشکلم حل شد
sasm3d
24-04-2009, 22:54
با درستور زیرم میشه

%windir%
ch4llenge
29-04-2009, 15:37
ارور می ده مشکل کجاست ؟
MicrosoftH
03-05-2009, 16:18
سلام

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

مثلا


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنیدنه


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید


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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
موفق باشی