Question

Excel中VBA的Name和Shell相关问题（高手进，有加分）

1.用Name A as B 语句重命名文件夹时如如该文件夹或其下层目录处于打开状态时，就会产生错误，那如何判断该文件夹或其下层目录是否处于打开状态呢？
2.类似的，用shell命令打开其它应用程序，如果其它应用程序已处于运行状态，虽不一定会产生错误，但同时运行多个程序也不好，那如何判断该程序是否处于运行状态呢？
3.另外，打开与关闭文件夹的命令是什么？
本人是初学者，希望能写明所用到的命令的格式及语法，最好再举例说明一下，答的满意的有加分（20-50分），决不食言！
多谢了！

Answer 1

关于1,不知道你说的文件夹处于打开状态是指什么？
通常为文件夹重命名，提示错误有两个原因：
1）源文件夹里的文件被打开或者程序文件已经运行。
2）源文件夹不存在，或者目标文件夹已经存在。
可以使用ERR对象进行判断，代码如下：
Private Sub Command1_Click()
Dim Y As String
Dim M As String
Y = "C:\A"
M = "C:\B"
On Error GoTo MyErrNum1
Name Y As M
MsgBox "重命名成功！"
Exit Sub
MyErrNum1:
If Err.Number = 75 Then
MsgBox "文件夹“" & Y & "”中有文件被打开或运行！"
ElseIf Err.Number = 53 Then
MsgBox "文件夹“" & Y & "”不存在！ 或者文件夹“" & M & "”已经存在！"
End If
Err.Clear
End Sub
关于2，可以使用搜索进程的方法，判断程序是否启动，启动了几个，还可以关闭该进程。
关于3，不了解有这个命令？

追问

1.忘了补充一下，不能使用Error语句，如果可以的话，我也不用来提问了
2.如何使用搜索进程呢？请写出出具体命令
3.打开非Excel文件我知道了，可以用Shell,如:a=Shell("notepad 1.txt",3),但打开目录我不知道，请指教
4.我指的目录打开状态是指象用手动操作打开的那样效果（当然不是非要处于焦点状态）
多谢了

Answer 2

这些要用到API了。