• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 149
  • Last Modified:

Exit Window to DOS

How to  exit window to DOS in VB5/Win95
0
dorosman
Asked:
dorosman
1 Solution
 
DQCommented:
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

Featured Post

The new generation of project management tools

With monday.com’s project management tool, you can see what everyone on your team is working in a single glance. Its intuitive dashboards are customizable, so you can create systems that work for you.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now