پیدا کردن پوشه WINDOWS و system32

[tehran2009]

سورسی می خوام که پوشه WINDOWS رو پیدا کنه .. و یه

سورس دیگه هم می خوام که پوشه system32 رو پیدا کنه .

[Bahram0110]

Environ("windir‏") ويندوز رو بهت مي ده
system32 رو هم به مي توني به بالايي اضافه كني

[tehran2009]

ممنون میشم با پروژه های وبی این کارو انجام بدین واسم که بهتر متوجه بشم .

[f.nabavi]

با Api ها می تونی مسیر نصب Windows رو پیدا کنید.

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

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

[majjjj]

Private Declare Function GetWindowDirectory Lib "kernel32.dll" (ByVal lpBuffer As String, ByVal nSize As Long) As Long



Private Declare Function GetSystemDirectoryA Lib "kernel32.dll" (ByVal lpBuffer As String,ByVal nBuffer As Long) As Long

از اینها استفاده کنید

[.:KeihanCPU:.]

ممنون میشم با پروژه های وبی این کارو انجام بدین واسم که بهتر متوجه بشم .

اینم با پروژه
18368