home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD175163242001.psc / basShellAndWait.bas < prev    next >
Encoding:
BASIC Source File  |  2001-03-24  |  341 b   |  15 lines
  1. Attribute VB_Name = "basShellAndWait"
  2. Sub ShellAndWait(lstrShellString As String, lbolVisible As Boolean)
  3.  
  4. Dim objScript
  5.  
  6. Set objScript = CreateObject("WScript.Shell")
  7.  
  8. If lbolVisible = True Then
  9.     ShellApp = objScript.Run(lstrShellString, 1, True)
  10. Else
  11.     ShellApp = objScript.Run(lstrShellString, 0, True)
  12. End If
  13.  
  14. End Sub
  15.