我编辑一个子程序,用于指定一个路径,通过Shell。
我是不是要关闭Shell?怎么关闭Shell?谢谢!Private Sub Specify_Output_directory()
Dim shellApplication As Object
Dim oPath As Object
Set shellApplication = CreateObject("Shell.application")
Set oPath = shellApplication.BrowseForFolder(0, "Please select output directory", 0, 17) If oPath Is Nothing Then Exit Sub
' ***** The output directory *****
TxtOutPD.Text = oPath.Items.Item.Path
End Sub
我是不是要关闭Shell?怎么关闭Shell?谢谢!Private Sub Specify_Output_directory()
Dim shellApplication As Object
Dim oPath As Object
Set shellApplication = CreateObject("Shell.application")
Set oPath = shellApplication.BrowseForFolder(0, "Please select output directory", 0, 17) If oPath Is Nothing Then Exit Sub
' ***** The output directory *****
TxtOutPD.Text = oPath.Items.Item.Path
End Sub
解决方案 »
- 如何利用pic控件输出打印条码?急,在线等,解决立即给分!
- 关于 msado15.dll文件的注册问题(40分给第一个可以解决问题的人)
- 两个关于类的小问题 100分~~
- 各位,怎样检测当前系统是否正在运行某个进程?.............在线急等!
- 已知IP如何得到该IP的计算机名和工作组呢?
- VB6.0好像不支持officeXP的ACCESS,怎样才能支持?
- 问一个mdi中子窗体的最大化的问题
- ACCESS的几个问题
- 请教具体方法之二,用VB编程建立ACCESS数据库的建库向导,谢谢。
- 为什么我用ADO调用SQL7数据库时很慢呢
- VBA excel简单应用,新手求源代码,有效便散分---在一批10万个物料中筛选出其中的3000个左右的坏件?(坏件有唯一物料编码,且已知)
- 如何用VBS实现网页跳转(求代码)
Set shellApplication =Nothing
????????