View Single Post
Old 06-09-2008, 09:31 AM
kbarnette kbarnette is offline
VanDyke Technical Support
Join Date: Aug 2007
Posts: 587
Hi hifox1,

The following lines of code will need to be added to the beginning of your script for the second block of example code I will provide to work:

Dim objShell

Set objShell = CreateObject("WScript.Shell")

Next, you should be able to replace your 'crt.Dialog.Messagebox "Testing is completed!"' line with the following:

If MsgBox("Would you like to open the text file?", vbYesNo) = vbYes then
	objShell.Run("notepad " & filepath)
End If

Using this information, are you able to develop a solution to accomplish what it is you are looking to do?
Reply With Quote