UC知道vb 用inputbox读取路径，并保存数据
来源：百度知道 编辑：UC知道 时间：2024/06/14 14:50:55
在程序后面用inputbox语句输入的地址的时候，用下面语句
GetSavePath: '指定导出数据保存路径
g = InputBox("请输入完整路径", "保存数据", "C:\VBoutput.txt")
If Len(g) <= 3 Then
MsgBox "无效路径!", vbCritical, "Error": Exit Sub
GoTo GetSavePath: Exit Sub
Else
Open g For Output As #1
弹出对话框后，我若是点“取消”的话，还会出现“无效路径”这个报错，也就是点“取消”后还会继续执行if语句。怎样才能点“取消”后不执行if语句呢？谢谢
GetSavePath: '指定导出数据保存路径
g = InputBox("请输入完整路径", "保存数据", "C:\VBoutput.txt")
If Len(g) <= 3 Then
MsgBox "无效路径!", vbCritical, "Error": Exit Sub
GoTo GetSavePath: Exit Sub
Else
Open g For Output As #1
弹出对话框后，我若是点“取消”的话，还会出现“无效路径”这个报错，也就是点“取消”后还会继续执行if语句。怎样才能点“取消”后不执行if语句呢？谢谢
if语句后面的条件修改一下
if isempty(g) then
If Len(g) =0 then
exit sub
elseif len（g）<= 3 Then
MsgBox "无效路径!", vbCritical, "Error": Exit Sub
GoTo GetSavePath: Exit Sub
Else
Open g For Output As #1
endif
实际上，一般不要采用inputbox，而windows的公共对话框。你将你会更轻松些。
g=inputbox()后面加入一句
If g="" then exit sub
就可以了
在MSGBOX后加break