روش فهميدن دايركتوري ويندوز

[Amin_vb]

شما مي‌توانيد با كد زير دايركتوري ويندوز را بفهميد كجاست

Dim Windows 

Windows = Environ("Windir")
'Get the Windows directory from a MS-Dos Environment, stored in c:\msdos.sys


MsgBox Windows

 

[giahchin]

سلام دوست عزيز،
البته براي اين كار ميشه از API هم كمك گرفت .
اينطوري
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Dim StrFolder As String * 255
Dim IntLength As Integer
IntLength = GetWindowsDirectory(StrFolder, 255)

MsgBox Left(StrFolder, IntLength)


هادي

 

[Amin_vb]

سلام دوست عزیز
روش شما هم روش جالبی است
در ویپوال بیسیک Apiها نقش بسيار مهم و جالبي دارند

 

[mahdi22m]

سلام به دوستان
در مورد اين روشها به نظر من روش آقا امين بهينه تره چون نياز به فراخواني توابع سيستمي نداره چون از متغيير هاي محيطي سيستم عامل ويندوز استفاده مي كنه كه در ابتداي فرآيند بالا آمدن ويندوز مقدار دهي مي شوند. اين متغيير ها در سطح بسيار زيادي قابل استفاده هستند حتي در محيط خود ويندوز و اكسپلورر. البته به جاي WinDir ميشه از SystemRoot هم استفاده كرد. مثلا در منوي Run ويندوز خودتون اي اين قابليت براي رسيدن سريع به پوشه فونت ويندوز خودتون مي تونيد استفاده كنيد:
systemroot%\fonts%