دایرکتوری جاری ویندوز

[ayub_coder]

چطوری می تونم دایرکتوری جاری را که ویندوز داره باهاش کار میکنه رو پیدا کنم
مثلا الان پنجره ی مای کامپیوتر روی درایو دی پوشه نیو فولدره برنامه ام اون مسیر رو بهم بده
ازتون ممنون میشم

[Lagon666]

فکر می کنم منظورت این باشه:


Option Explicit
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub Form_Load()
Dim WindowsDir As String
WindowsDir = Space(256)
GetWindowsDirectory WindowsDir, Len(WindowsDir)
MsgBox WindowsDir
End Sub

[ayub_coder]

دستت درد نکه ملی منظور من این نبود.
مثلا الان کاربر پنجره My Computer رو باز کرده و توی درایو :\new folderD هستش من میخوام برنامه من همون مسیر d:\new folder رو برام در بیاره و وقتی رفت تو درایو e:\Music برنامه مسیر e:\music رو برام بدست بیاره ممنون میشم اگه کسی کمک کنه

[Lagon666]

خب می تونی از App.Path استفاده کنی:


Form Load()
Text1.text = App.Path
End Sub

[ayub_coder]

منظورم دایرکتوری برنامم اجرا میشه نیست دایرکتوری که ویندوز داره باهاش کار می کنه
چطوری بگم مثلا ویروس w32geefo کاربر توی هر پوشه ای که بره خودشو کپی میکنه

[Lagon666]

منظورت رو فهمیدم. منظورت پنجره Explorer هست که باز هست. اما تا حالا چیزی در این مورد ندیدم!

[ayub_coder]

کسی دیگه ندیده اقا نوکر همتونم کمک وکنید

[Lagon666]

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

[ayub_coder]

آقا نوکرتم تشکر دستت درد نکنه امشب پاش میشینم نگاش می کنم
یک دنیا ممنون
بازم تشکر

این برنامه خایلی پیچیده نوشته شده