well first get then into an array.


Code:
Dim tmp As String
Open "C:\file.txt" For Binary As #1
tmp = space(LOF(1))
Get#1,,tmp
Close#1

Dim sLines() As String
sLines = Split(tmp,vbcrlf)

Dim done As String
Open "C:\newfile.txt" For Output As #1
Randomize
Do Until doneit = True
AGAIN:
num = int(Rnd*UBound(slines))
If slines(num) = "" Then GoTo again
Print#1,slines(num)
slines(num) = ""
For x = 0 To UBound(sLines)
If sLines(x) <> "" Then doneit = False:Exit For
doneit = true
Next
Loop
Close#1
ok..that is REALLY off the top of my head...not even tested...
give it a shot and let me know where it blows up! ;)




VBBrowser v2.2.1