VB基础知识

新建一个窗体，上面添加一个command和一个timer
代码如下
Dim Pathname As String, Filename As String, Delay As Integer
Private Sub Command1_Click()
Pathname = "e:\vb" '目录名
Filename = "1.bat" '文件名
If Dir(Pathname, vbDirectory) = "" Then
MkDir Pathname
End If
If Right(Pathname, 1) <> "\" Then Pathname = Pathname & "\"

Open Pathname & Filename For Output As #1
Print #1, "@echo off"
Print #1, "......" '这里面添加bat文件内容，一行一行写
Close #1

Timer1.Interval = 1000 '注意这里应该是1000，即1秒钟计时一次，当然也可以提高精度比如500毫秒计时一次，注意最高精度为15毫秒，一般建议1000毫秒
Delay = 10 '这里是延迟时间，delay*timer1.interval 为延迟毫秒数，10*1000=10000即10秒,当然100秒1000秒随意

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
If Delay > 0 Then
Delay = Delay - 1
Else
Shell Pathname & Filename
Timer1.Enabled = Fa