یافتن مسیر برنامه ی نصب شده

[mikhak]

سلام
با چه دستوری میتونیم مسیر برنامه رو که نصب شده پیدا کنیم؟؟
یه چیزی شبیه این "vb6.getpath"؟؟؟؟؟؟

[یاشار]

اگر منظورتون مسیر فایل اجرایی برنامه است :


Dim s As String

s = Application.ExecutablePath()
'The path and executable name for the executable file that started the application.

s = Application.StartupPath()
'The path for the executable file that started the application.

[hadi2345]

با سلام کدی که آقای یاشار نوشته اند هیچ ایرادی ندارد و عالی است . ولی از کد زیر هم میتونی استفاده کنی . در این کد من میخواهم ببینم که آیا فایل dbase.mdb در مسیر اجرایی برنامه وجود دارد یا خیر :


Dim sname As String
Dim dirname As String

Dim prodir As IO.Directory


dirname = prodir.GetParent(prodir.GetCurrentDirectory).ToStr ing
Dim myfile As New IO.FileInfo(dirname & "\dbase.mdb")

If myfile.Exists = True Then
...............

[mikhak]

tanx