VBS如何bt.txt完全后在运行下一条命令？

nbxas

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请详细指点！
谢谢