简单VB问题
有一道程序，我想要完善以下功能，当点击删除 重命名 复制三个按钮 ，弹出输入对话框，当我们输入完毕，点击确定后，如果在执行这些之前，文件列表框没有选择文件，也就是没有源文件，就提示 “文件或路径访问错误”我以为设置一个msgbox就可以 但是弹出的msgbox点击确定就对出程序了，有没有办法点击确定后不要退出程序，而是给我们机会去文件列表框选中文件，再执行重命名 删除 复制等命令
下面是我的代码，请回的人帮我完善这个功能 谢谢
Dim choicedfile As String
Private Sub cmdcopy_Click()
Dim sourfile As String
Dim destfile As String
str2$ = "请输入复制目的文件"
sourfile = choicedfile
destfile = InputBox$(str2$, "复制文件")
If destfile <> "" Then
FileCopy sourfile, destfile
End If
End Sub
Private Sub cmdend_Click()
End
End Sub
Private Sub cmdkill_Click()
Dim killedfile As String
killedfile = choicedfile
Title$ = "数据检查框"
msg1$ = "你要删除文件:" & killedfile
x = MsgBox(msg1$, 35, Title$)
If x = 6 Then
Kill killedfile
End If
End Sub
Private Sub cmdrename_Click()
Dim oldname As String
Dim newname As String
Title$ = "重新命名"
str0$ = "请再输入一次需要修改的文件名(全路径)"
str1$ = choicedfile + Chr$(10) + Chr(13) + str0$
str2$ = "请输入新文件名&q
相关问答：
请教一下：我用vb写了一个调用Illustrator的测试程序，代码很简单：Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
vb中怎么通过xml来解析数据库中的字段值。
没办法用XML解析数据库的字段值，除非数据库中保存的是XML格式的字符串文档。
XML用来展示层次的数据。
数据库一般是二维数据。
数据库中保存的是XML字符串格式� ......
在vb这编程里似乎有很多的东西是相联系的，为什么有些人对vb的编程摸不到头脑啊！并且有些事很容易的，但是却把它们的代码变成复杂，也去想一些不能实现的东西啊！
没分了，楼主多来点分！
来接点分
......
