By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
464,332 Members | 1,073 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 464,332 IT Pros & Developers. It's quick & easy.

Installer problems

P: n/a
Any Installer garus out there? The following code works in MS Win 2K Pro but
fails in XP Pro, any ideas?

Public Function GetPath(strFolderName As String) As String
Dim objInstaller As WindowsInstaller.Installer
Dim objSession As WindowsInstaller.Session
Dim strGUID As String
Set objInstaller = _
CreateObject("WindowsInstaller.Installer")
objInstaller.UILevel = msiUILevelNone
strGUID = objInstaller.Products(0) ' *** Fails here ***
Set objSession = _
objInstaller.OpenProduct(strGUID)
GetPath = objSession.Property(strFolderName)
End Function
Thanks,
--
JASON MCLEAN
Nov 12 '05 #1
Share this question for a faster answer!
Share on Google+

This discussion thread is closed

Replies have been disabled for this discussion.