我编辑一个子程序,用于指定一个路径,通过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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货