请问如何模拟"新建文件夹"的操作

Question

请问如何模拟"新建文件夹"的操作
谢谢

Answer 1

Private Sub Form_Load()
On Error Resume Next
Dim i As Integer
Dim sDir As String
sDir = "d:\新建文件夹"
n = GetAttr(sDir)
i = 2
If n <> 16 Then
 MkDir (sDir)
Else
 Do
  DoEvents
  sDir = "d:\新建文件夹(" & i & ")"
  MsgBox sDir
  i = i + 1
 Loop Until GetAttr(sDir) <> 16
 MkDir (sDir)
End If
End Sub
哈哈终于让我搞定了

Answer 2

大概是没说清楚,需要这样
在已经打开的资源管理器中新建一个文件夹,假设目前路径是 c:\
在新建后,该文件夹立刻出现
并且新建后的文件夹的名字是处于编辑状态的反正情形是要与 右键->新建 的效果是类似的