Question

vb重新运行程序

我的意思就是输入文件路径到locate，判断文件路径是否正确，如果错误然后出来提示错误，点击重试之后，然后会回到那个程序的界面，从新输入路径。。If Mid(locate, 4) <> ".txt" Then locate = MsgBox("请输入正确的径",vbRetryCancel, "地址错误")
If locate = (vbRetry Or vbCancel) Then ‘问这里填什么，让应用程序初始化
Open locate For Input As #1...否则弹出路径错误，点击重试之后。vb会出现会vb会弹出来
实时错误“52”找不到文件名或窗口。

Answer 1

H:If Mid(locate, 4) <> ".txt" Then locate = MsgBox("请输入正确的径",vbRetryCancel, "地址错误")
If locate = (vbRetry Or vbCancel) Then GOTO H‘问这里填什么，让应用程序初始化
Open locate For Input As #1...

Answer 2

打包,用VB自带的打包软件。
或者使用 VBPowerWrap41 [VB做绿色软件] 他能将VB程序变成绿色版本。自动将所需要的控件压缩集成。 就可以拿到其他电脑上运行了。

Answer 3

Do
If Right(locate, 4) <> ".txt" Then
locate = InputBox("请输入正确的径", "地址错误", locate)
If locate = "" Then Exit Sub
Else
Exit Do
End If
Loop

Answer 4

locate = MsgBox("请输入正确的径",vbRetryCancel, "地址错误")

这句好像有错,locate =Msgbox 的返回值?
应该是 locate =Inputbox 吧

Answer 5

说清楚点好吗？你的意思是不是想判断他输入的文件或者程序是否存在 不存在、或 输入时候就提示错误 然后重新返回 输入吗? 是不是这样呢？