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