Working/Start Directory

Hi all!
I'm relatively new to VB and I've just started my first major application but I've run into a problem. Is there a way to find out the working directory, ie. the directory containing the application? I've tried using CurDir() but if the program isn't in the current directory then it doesn't work properly.

Thanks in advance for any help,

Greg Nolle.

A simple little function by the name of

Code:

---

App.Path

---

I believe you are looking for App.Path

Public Const MAX_PATH = 206

Public Declare Function GetModuleHandle Lib _
"kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) _
As Long
Public Declare Function GetModuleFileName Lib _
"kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, _
ByVal lpFileName As String, ByVal nSize As Long) As Long

'App.Path is not always reliable, especially on a network.
'Try using GetModuleFileName API call to avoid the problem

Dim lngFileHandle As Long
Dim lngReturn As Long
Dim strFilePath As String

strFilePath = Space$(MAX_PATH)
lngFileHandle = GetModuleHandle(App.EXEName)
lngReturn = GetModuleFileName(lngFileHandle, strFilePath, MAX_PATH)
MsgBox strFilePath

Thanks all of you for your help. App.Path worked perfectly since I don't need it to work on a network.

Thanks again,

Greg.