高校问答座敷童子阴阳师御魂:VB循环的问题
来源：百度文库 编辑：高校问答 时间：2024/05/05 01:47:48
问题是一个文件夹里面有1.exe,2.exe,3.exe,4.exe........一直到N.EXE
这个N不确定。我想要的是，执行完一个文件后接着执行下一个（首先判断有没有），比如说执行完1.exe ,自动判断是否有2.exe，有的话就执行，没有的话执行别的.
大家帮我看看那里错了，谢谢了
Private Sub Form_click()
for i = 1 to N
If Dir("f:\cs\"i".exe", vbNormal) <> "" Then
Shell "f:\cs\"i".exe"
Else
msgbox "执行完成!"
next i
end sub
谢谢大家了，刚学VB，大家别骂我笨。呵呵。
Private Sub Form_click()
For i = 1 To 100
If Dir("f:\cs\'i'.exe", vbNormal) <> "" Then
Shell "f:\cs\'i'.exe"
Else
MsgBox "执行完成!"
End If
Next i
End Sub
是这个样子的，刚才写错了。谢谢大家
文件夹是F:\CS\1.EXE 2.EXE 3.EXE等等。
dim filename as string
For i = 1 To 100
filename="f:\cs\" & i & ".exe"
If Dir(filename, vbNormal) <> "" Then
Shell filename
Else
exit for'在已经找不到了文件的情况下应该退出循环,所以在此加了这一句
End If
Next i
MsgBox "执行完成,共执行了" & iif(i=100,i,i-1) & "个Exe文件!"
在不知道循环次数的情况下,最好用Do while 来循环
dim filename as string
dim i as integer
i=1
filename="f:\cs\" & i & ".exe"
If Dir(filename, vbNormal) = "" Then filename=""
do while (filename<>"")
Shell filename
i=i+1
filename="f:\cs\" & i & ".exe"
If Dir(filename, vbNormal) = "" Then filename=""
loop
MsgBox "执行完成,共执行了" & i & "个Exe文件!"
好像很难~
我也期待正确答案
在窗体上创建个FileListBox控件名为File1，你的功能实现就很容易了。
如下:
File1.ReadOnly = True
File1.System = True
File1.Path = \"e:\\\"
File1.Pattern = \"*.exe\"
For i = 0 To File1.ListCount - 1
Shell File1.Path & File1.List(i)
\'这里执行的都是*.exe文件，切在Path路径下的省去很多事
Next i