Jobs
Author: Sanoop Kurian Date Submitted: 7/14/2005 Category: Windows Operations Compatibility: VB 6 This code has been accessed 11195 times.
Email Yourself this snippet:
'Items Required '1,text box name-text1 '2,text box name-text2 '3,timer name-time 'create a .bat file named san(san.bat) using notpad with following code. 'net session > d:\temp123.txt
Code
Private Sub Timer1_Timer() Shell ("san:\4.bat") Text1.Text = Text1.Text + 1 Text2.Text = "" Open "d:\temp123.txt" For Input As #1 sa = Input$(LOF(1), #1) Close 1 Text3.Text = sa End Sub
