home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mastering Visual Basic 6
/
mastvb6.iso
/
ch_code
/
ch20
/
seditor
/
split.scr
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1996-05-12
|
188 b
|
9 lines
Sub Main()
path = "c:\windows\desktop\VBScript\Examples\strings.txt"
parts = Split(path, "\")
For i = 0 To UBound(parts)
Show parts(i)
Next
End Sub