بدست آوردن مسیر جاری

[mehran8]

سلام
دنبال تابعی می گردم که مثلاً اگر ما در درایو F واقع در پوشه ای به نام SSS باشیم . این تابع مسیر اون رو به ما بده !
در واقع مسیر جاری که درون قرار داریم رو به نمایش دربیاره .

ممنون

[sohrab o]

dim StrPath as string
StrPath=app.path

[sohrab o]

در کد بالا یه متغیر به نام StrPath تعریف می کنیم بعد مسیرو توش میریزیم

[mehran8]

نه !
منظورم مسیر جاری برنامه نیست که ..
منظورم مسیر جاری مرورگر هست !

-----------------------------------------------
یه چیزهایی هم در موردش شنیده بودم فکر کنم با استفاده از تابع getcurrentdirectory
بدست میاد .
ولی بلد نیستم استخراجش کنم

[sohrab o]

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

[mehran8]

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


آره فکر کنم با تابع GetWindowText بشه
ولی این روشی که می گی دردسر زیاد داره :لبخندساده:

چیزی در مورد همین تابعی که گفتم می دونی ؟!!!

GetCurrentDirectory ؟؟

[mehran8]

سلام
آقا تابعش رو هم پیدا کردم :


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

کسی می تونه چیزی ازش استخراج کنه ؟!!

منتظرم

[romina2006]

Private Declare Function GetCurrentDirectory Lib "kernel32" Alias "GetCurrentDirectoryA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Sub Form_Paint()
Dim sSave As String
sSave = String(255, 0)
GetCurrentDirectory 255, sSave
MsgBox sSave
End Sub


از سورس برنامه GetPath هم می تونی استفاده کنی :

http://barnamenevis.org/forum/showthread.php?t=46430&page=51

[mehran8]

خیلی ممنون