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

[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 هم می تونی استفاده کنی :

https://barnamenevis.org/showth...=46430&page=51

[mehran8]

خیلی ممنون