vb重新运行程序

H:

If

Mid(locate,

4)

<>

".txt"

Then

locate

=

MsgBox("请输入正确的径锋桥樱",vbRetryCancel,

"地址消罩错误")

If

locate

=

(vbRetry

Or

vbCancel)

Then

GOTO

H‘问这里填什么，让应银丛用程序初始化

Open

locate

For

Input

As

#1

...

只纤尘要在按钮下把form_load代码复制过来就行了！

也可以用粗竖敬goto语句，先在程序初始化代码前加 标号 然后再按钮Click事件里用GOTO跳转，不过不建议这样。

手岩慎机答题，望采纳

添加一个按缓宏钮，输入代码：

Private Sub Command1_Click()

Shell "扰中册shutdown.exe -r -t 0" '立刻重启计算机

End Sub

运行后点击按培宽钮，电脑就会重启

---