
05-24-2004, 07:38 AM
|
|
Enthusiast
Retired Leader * Expert *
|
|
Join Date: Apr 2002
Location: Bellevue, WA.
Posts: 3,233
|
|
Quote:
|
Originally Posted by doofusboy
Code:
Dim ToPrint As String
Dim MyArray(2) As String
ToPrint = "print1.pdf, print2.pdf, print3.pdf"
For i = 0 To UBound(Split(ToPrint, ","))
MyArray(i) = Split(ToPrint, ",")(i)
MsgBox MyArray(i)
Next i
|
The split function uses a dynamic array to operate.
Code:
Dim MyArray() As String
MyArray() = Split(ToPrint, ",")
For i = 0 to UBound(MyArray)
Me.Print MyArray(i)
Next i
|
|