FactoryTalk SE project directory from VBA

Hi everyone

From my FactoryTalk SE VBA code I need to determine what directory contains the FactoryTalk SE project.

I need a way to have the "C:\Documents and Settings\All Users\Documents\RSView Enterprice\SE\HMI Projects\My Project\" or whatever it is, returned to my VBA code. I'm sure this is possible but I can't find it.

Any comments?

Thanks in advance
Peter

I might add that DisplayClient.Application.ApplicationName only returns "My Project" and not the "C:\Documents and Settings\All Users\Documents\RSView Enterprice\SE\HMI Projects\" and this seems to be variable according to the selected OS, eg. XP or Win 7.

You should be able to do a VB call and use the following.
Dim mypath as string
Mypath = app.path
You would then have to link mypath to where ever you need it.

Thanks, but "app.path" is not recognized in VBA? Do I need to add a reference?

I think that app.path is more Excel related and not FactoryTalk SE related.

Is there any suggestions?

Hopefully one of the other members can help here. I am traveling today and won't be able to help till this evening.

You are right about that being an excel or access call.
I spent over an hour looking for your answer and came up with nothing. All sample codes where ususally for excel, access or word. It may be possible to use a shell32 call.
The only path I could find in Studio was
MyPath = FileSystem.CurDir
but this returned the last working directory.
The easiest route may be to call a GetINI and embed the path
in it.
Here is the code:

Dim X As Integer
Dim sFileName As String
Dim sRetBuf As String, iLenBuf As Integer
sFileName$ = "C:\test.ini"
sRetBuf$ = String$(100, 0) '60 null characters
iLenBuf% = Len(sRetBuf$)
X = GetPrivateProfileString("Config", "FilePath", "", sRetBuf, iLenBuf%, sFileName$)
NetworkDataBase = Mid(sRetBuf, 1, X)

Create a module and paste the following as well.
Declare Function GetPrivateProfileString Lib "kernel32" Alias_
"GetPrivateProfileStringA" (ByVal lpApplicationName As String,_
ByVal lpKeyName As Any, ByVal lpDefault As String, _
ByVal lpReturnedString As String, ByVal nSize As Long, _
ByVal lpFileName As String) As Long

Hi Mark

Thank you for your answer.

The Rockwell support told me that the projects is always installed in the Windows shared folder. So I made a API call to read the registry for this. And with DisplayClient.Application.ApplicationName I was able to find my complete answer:O)