home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch20 / scripts / popup.vbs < prev    next >
Encoding:
Text File  |  1996-05-12  |  402 b   |  13 lines
  1. Set WShell = Wscript.CreateObject("Wscript.Shell")
  2. Reply = WShell.Popup("Display long file names?", 10, _
  3.         "Timed Dialog Box", 4+64)
  4. If Reply = 6 Then
  5.     Wscript.Echo "OK, here are a few long file names..."
  6. Else 
  7.     If Reply = 7 Then
  8.         Wscript.Echo "OK, here are a few short file names..."
  9.     Else
  10.         Wscript.Echo "I selected long file names for you"
  11.     End If
  12. End If
  13.