用VB如何把一个文件释放到指定的文件夹中

来源：百度知道 编辑：UC知道 时间：2024/05/11 04:05:54
也就是，不同的用户会有不同的路径，如何弹出提示必须要放到指定文件夹中才能运行
二楼的朋友说具体点可以么

Private Sub Form_Load()
If LCase(App.Path) <> "d:\1" Then '如过程序不在D盘的1文件夹中，就弹出警告
msgbox "请把程序移动到D:\1文件夹中再执行！"
end '退出
End If
End Sub

这是我刚才帮你修改的

Private Sub Form_Load()
If Right(App.Path, 1) <> "1" Then '指定为1文件夹
MsgBox "请把程序放到1文件夹中再执行"
End
Else
MsgBox "欢迎进入系统"
End If
End Sub

if user="a" then
msgbox("必须要放到指定文件夹a中才能运行")
esle
msgbox("必须要放到指定文件夹b中才能运行")
end if