Ibland vill man ha veta sökvägarna till bl.a Mina dokumnet (My Documents) och till programmappen. Sökvägarna skiljer sig ju mellan olika användare och olika operativsystem. Här är lite kod för det.

Access kod till Mina dokument:

Function sMyDocumentsPath()
Const MY_DOCUMENTS = &H5&
Dim objShell
Dim objFolder
Dim objFolderItem
Set objShell = CreateObject(”Shell.Application”)
Set objFolder = objShell.Namespace(MY_DOCUMENTS)
Set objFolderItem = objFolder.Self
sMyDocumentsPath = objFolderItem.Path     ‘My Documents path
End Function

Access kod till programmappen:

Function sProgramPath()
Const PROGRAM_FILES = &H26&
Dim objShell
Dim objFolder
Dim objFolderItem
Set objShell = CreateObject(”Shell.Application”)
Set objFolder = objShell.Namespace(PROGRAM_FILES)
Set objFolderItem = objFolder.Self
sProgramPath = objFolderItem.Path
End Function