Exit Window to DOS

How to  exit window to DOS in VB5/Win95
dorosmanAsked:
Who is Participating?
 
DQConnect With a Mentor Commented:
dim ret

       Ret = Dir(WinPath + "\Exit to dos.pif")
       If ret = "" Then 'the file could not be found
                MsgBox "Cannot find " + WinPath + "\Exit To Dos.pif" + Chr(10) + Chr(10) + "Please make sure this file is in your Windows directory", vbCritical 'display an error message
            Else                                                'otherwise
                Ret = Shell(WinPath + "\Exit To Dos.pif", 1) 'execute the pif file
            End If
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.