hvilke sporg har windows

mit spg, er hvordan finder jeg ud af hvilket sprog styrestemet bruger så jeg kan ændre mine linked tabels, eller er der en helt anden måde jeg skal gøre det  på

Jeg mener helt bestemt der findes nogle vba-variabler der giver dig navnet på system forldere som Program Files m.m. Jeg kan bare ikke lige huse hvad de heder, og hvordan de bruges.

jeg gør det bare ved at finde ud af hvor frontenden ligger og så tilføjer backend...
det er er det jeg kan komme på nu , men ville gerne have en løsning på sprog i windows ..

Maaske ville det vaere bedre at smide den slags information i en registry key istedet.
Det er ikke helt ligefremt at benytte sig af, men der er nogle eksempler her:
http://www.ilook.fsnet.co.uk/vb/vbreg.htm
http://www.windowsdevcenter.com/pub/a/windows/2004/06/15/VB_Registry_Keys.html

bedre eksempel:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dv_vbcode/html/vbtskhowtodeleteregistrykey.asp

Derefter kan du bruge GetAllSettings til at finde den relevante registry key igen, hvilket ogsaa betyder at du ikke skulle faa problemer med rettigheder til regsitry naar fronenden er installeret.

Du finder Program-stien i registry med denne kode:

'***** Kodestart ******************************************************************
Option Compare Database
Option Explicit

Public Const ERROR_SUCCESS As Long = 0
Public Const TJ_MYDOCUMENTS As Long = &H5
Public Const TJ_FAVORITES As Long = &H6
Public Const TJ_RESCENT As Long = &H8
Public Const TJ_STARTMENU As Long = &HB
Public Const TJ_DESKTOP As Long = &H10
Public Const TJ_TEMPLATES As Long = &H15
Public Const TJ_STARTUPFOLDER As Long = &H18
Public Const TJ_TEMP_INTERNET_FILES As Long = &H20
Public Const TJ_WINDOWS As Long = &H24
Public Const TJ_SYSTEM As Long = &H25
Public Const TJ_PROGRAMFILES As Long = &H26
Public Const TJ_PICTURES As Long = &H27
Public Const TJ_MYDOCUMENTS_AND_SETTINGS As Long = &H28
Public Const TJ_SHARED_FILES As Long = &H2B

Public Declare Function SHGetPathFromIDList Lib "shell32" _
    Alias "SHGetPathFromIDListA" _
  (ByVal pidl As Long, _
    ByVal pszPath As String) As Long

Public Declare Function SHGetSpecialFolderLocation Lib "shell32" _
  (ByVal hwndOwner As Long, _
    ByVal nFolder As Long, _
    pidl As Long) As Long
   
Public Declare Sub CoTaskMemFree Lib "ole32" _
  (ByVal pv As Long)


Public Function GetSpecialPath(ByVal TJ As Long) As String
  Dim path As String
  Dim pidl As Long
 
  'get the pidl to the the specified folder item
  If SHGetSpecialFolderLocation(Access.hWndAccessApp, TJ, pidl) = ERROR_SUCCESS Then
   
      path = Space$(512)
      Call SHGetPathFromIDList(ByVal pidl, ByVal path)
      GetSpecialPath = Left$(path, InStr(path, Chr$(0)) - 1)
      Call CoTaskMemFree(pidl)
    End If
End Function
'***** Kodeslut *******************************************************************

Herefter finder du program-mappen med dette funktionskald:
GetSpecialPath(TJ_PROGRAMFILES)

takker .. thomas