Board logo

标题: VBS如何bt.txt完全后在运行下一条命令？ [打印本页]
作者: nbxas    时间: 2010-9-5 18:59     标题: VBS如何bt.txt完全后在运行下一条命令？

  1. Private Sub Form_Load()

  2.     Dim iA As Integer

  3.     Dim i As Integer

  4.     Randomize

  5.     Open App.Path & "\bt.torrent" For Append As #1

  6.     For i = 1 To 16

  7.          iA = Int(Rnd * 36) + 48

  8.          If iA > 57 Then iA = iA + 7

  9.          Print #1, Chr(iA);

  10.          Next

  11.     Print #1,

  12.     Close

  13.      '

  14.     Unload Me

  15.     Shell "cmd.exe /c ren bt.torrent bt.txt", vbHide

  16.     Shell "cmd.exe /c bt.txt", vbHide

  17.     Shell "cmd.exe /c ren bt.txt bt.torrent", vbHide

  18. End Sub
复制代码
该如何bt.txt完全后在运行下一条命令？ren bt.txt bt.torrent请详细指点！
谢谢



欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2