ادرس فولدر Windows

[yahya3004]

با سلام به دوستان عزیز
من می خواهم ادرس فولدر Windows را در کامپیوتر User رو بدست بیارم.کسی می تواند به من کمک کند؟؟؟

[Hossein Bazyan]

دوست عزیز
این هم آدرس فولدرهای System , Windows , Temp



Private Declare Function GetSystemDirectory _
Lib "kernel32" _
Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, _
ByVal nSize As Long) As Long
Private Declare Function GetTempPath _
Lib "kernel32" _
Alias "GetTempPathA" (ByVal nBufferLength As Long, _
ByVal lpBuffer As String) As Long
Private Declare Function GetWindowsDirectory _
Lib "kernel32" _
Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, _
ByVal nSize As Long) As Long
Private Sub Form_Load()
Dim CurDir As String
Dim SysDir As String
Dim TmpDir As String
Dim WinDir As String

CurDir = Space(500)
SysDir = Space(500)
TmpDir = Space(500)
WinDir = Space(500)

SysDir = Left(SysDir, GetSystemDirectory(SysDir, Len(SysDir)))
TmpDir = Left(TmpDir, GetTempPath(Len(TmpDir), TmpDir))
WinDir = Left(WinDir, GetWindowsDirectory(WinDir, Len(WinDir)))

End Sub

[mahdi_farhani]

az in dastor estefade Kon
Sharmande Systemem Moshkel Peyda krde nmetonam Farsi benevisam


label1.caption=environ("Windir")

[Hossein Bazyan]

این دستور درسته اما فقط مسیر ویندوز را میده بقیه را نه ؟
البته شاد من بلد نباشم
اگه غیر اینه لطفا دستورات دیگر را نیز بنویسید خیلی مختصر و جالبه

[yahya3004]

خیلی ممنون از همه دوستان

[mahdi_farhani]

چرا مقدار های دیگه هم بر میگردونه ولی الان یادم نیست . میگردم پیداش میکنم .
در ضمن شما وقتی مسر ویندوز داشته باشی بقیه مسیرها میاد دستت.

[Payman62]

az in dastor estefade Kon
Sharmande Systemem Moshkel Peyda krde nmetonam Farsi benevisam


label1.caption=environ("Windir")

خیلی جالب بود. وقتی این دستور هست دیگه ای پی آی GetWindowsDirectory بی استفاده میشه.

[mahdi_farhani]

خوب دوستان اینم یه تیکه برنامه که یکسری اطلاعات بمون میده . اطلاعات بدی نیست . بعضی از جاها بدرد می خوره


Dim i As Integer
Dim txt As String
For i = 1 To 10000
If Environ(i) <> "" Then
txt = txt & Environ(i) & vbCrLf
Else
Exit For
End If
Next i
Text1.Text = txt

[Hossein Bazyan]

کد جالبی بود