I came up with this little bit of code that I have tied to a View button on a form so that the users can lookup the file they want to view, and then click the view button. This has worked great for Win98 and Win2000 for a couple of years. We are now getting WinXP machines in and the Viewer is integrated into XP.
Is anyone aware of a way to execute the viewer with code such as I have shown below? Possibly using the rundll32.exe in XP?
Thanks for any Help
Mike
Dim stAppName As String
Dim callsolno As String
' Use for Windows 98
' stAppName = "C:\windows\KODAKIMG.EXE"
' Use for Windows2000
stAppName = "C:\Program Files\Windows NT\Accessories\IMAGEVUE\KODAKIMG.EXE"
Call Shell(stAppName, 1)
callsolno = "f:\file1\" & Forms!Main_form!LookUp & ".tif"
SendKeys "%F", True
SendKeys "O", True
SendKeys callsolno, True
SendKeys "%O", True
Is anyone aware of a way to execute the viewer with code such as I have shown below? Possibly using the rundll32.exe in XP?
Thanks for any Help
Mike
Dim stAppName As String
Dim callsolno As String
' Use for Windows 98
' stAppName = "C:\windows\KODAKIMG.EXE"
' Use for Windows2000
stAppName = "C:\Program Files\Windows NT\Accessories\IMAGEVUE\KODAKIMG.EXE"
Call Shell(stAppName, 1)
callsolno = "f:\file1\" & Forms!Main_form!LookUp & ".tif"
SendKeys "%F", True
SendKeys "O", True
SendKeys callsolno, True
SendKeys "%O", True