Ramdomize

[Mr_Zer0]

Hey how can i ramdoize each file it will read the infor from to the text box thanks?maybe somit like this

Private Sub Form_Load()
Open "C:\text\& rnd &.txt " For Input As 1

Text1.Text = Input(LOF(1), 1)
End Sub

in the folder text there is about 10 text files and i want it to ramdomize what ones it reads into the txt box thanks

[Disiance]

Private Sub Form_Load()
Randomize Timer
Open "C:\text\" & (Int(Rnd*10)+1) & ".txt" For Input As 1
Text1.Text = Input(LOF(1), 1)
Close #1
End Sub

Look up the Randomize statement and the Rnd function in VB's help for more information on this.

[Mr_Zer0]

hey thanks gr8 work one more problem wen loading the data i get 2 lil funni chars example "name||"some lil bloks like that how can i just load the data wiv out any funny chars at the end thanks

[Disiance]

those two blocks represent characters with ASCII codes 10 and 13 respectively. Those make up the character/line return. Those two characters are the same thing as pressing your "Enter" key. The blocks show up because the textbox's MultiLine property is set to false. Set that property to true and the file will display correctly.

[Mr_Zer0]

and when i do that it adds few blank spaces lol so its bugs up but if i delete them to the last word then it works...is there any way on the last letter in the txt box to clear all the stuff wats after that thanks!

[Disiance]

Try:

Private Sub Form_Load()
Randomize Timer
Open "C:\text\" & (Int(Rnd*10)+1) & ".txt" For Input As 1
Text1.Text = Input(LOF(1)-2, 1)
Close #1
End Sub