我编辑一个子程序,用于指定一个路径,通过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