No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
|
Hi all, i want to open a file with this code [code] Dim linetext As String Private Sub Command1_Click() CommonDialog1.Filter = "Text Files(*.txt) | *.txt" CommonDialog1.ShowOpen If CommonDialog1.FileName <> "" Then Open CommonDialog1.FileName For Input As #1 Do Input #1, linetext Text1.Text = Text1.Text &linetext Loop Until EOF(1) End If …
|
|
|
Hi all, i'm newbie in vb, and i wanna learn a lot from u guys, i try to run this code, [code] Dim linetext As String Private Sub open_Click() CommonDialog1.Filter = "Text files{*.txt)|*.txt" CommonDialog1.ShowOpen If CommonDialog1.FileName <> "" Then Open CommonDialog1.FileName For Input As #1 Do Input #1, linetext Text1.Text …
|