home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch20 / seditor / split.scr < prev    next >
Encoding:
Text File  |  1996-05-12  |  188 b   |  9 lines

  1. Sub Main()
  2.     
  3.     path = "c:\windows\desktop\VBScript\Examples\strings.txt"
  4.     parts = Split(path, "\")
  5.     For i = 0 To UBound(parts)
  6.         Show parts(i)
  7.     Next
  8.  
  9. End Sub