home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch20 / scripts / spfolder.vbs < prev    next >
Encoding:
Text File  |  1998-05-09  |  206 b   |  8 lines
  1. ' List all special folders on the host computer
  2.   Set WShell = Wscript.CreateObject("Wscript.Shell")
  3.   For Each Folder In WShell.SpecialFolders
  4.      msg = msg & Folder & vbCrLf
  5.   Next
  6.   MsgBox msg 
  7.  
  8.