请问，“MkDir”命令不能创建多级文件夹吗？

Question

    已编写如下语句：
Const TmpFilesPath = "C:\Documents and Settings\LocalService\Local Settings\Temp\Temporary Internet Files\Content.IE5\MSFZZTEM\"    '判断是否存在相应的文件夹，如果不存在则创建，并设置其属性为“隐藏”。
    If Dir(Left(TmpFilesPath, Len(TmpFilesPath) - 1), vbDirectory Or vbHidden Or vbArchive Or vbReadOnly Or vbSystem) = "" Then
        MkDir Left(TmpFilesPath, Len(TmpFilesPath) - 1)
        SetAttr Left(TmpFilesPath, Len(TmpFilesPath) - 1), vbHidden
     Else
        SetAttr Left(TmpFilesPath, Len(TmpFilesPath) - 1), vbHidden
     End If     但实际运行时（安装后），若有的电脑“C:\Documents and Settings\LocalService\Local Settings\Temp”下无“Temporary Internet Files\Content.IE5”文件夹时，运行到“MkDir Left(TmpFilesPath, Len(TmpFilesPath) - 1)”会提示“运行时错误 '76 '：未找到路径”。
    请问，
    1、上述语句中，哪儿存在问题？
    2、“MkDir”命令不能创建多级文件夹吗？如果需要创建多级文件夹又如何解决？

Answer 1

使用FSO来操作很简单
FSO 对象模型编程
 FSO 对象模型编程包括三项主要任务： 使用CreateObject 方法，或将一个变量声明为 FileSystemObject 对象类型来创建一个 FileSystemObject 对象。
对新创建的对象使用适当的方法。
访问该对象的属性。 
FSO 对象模型包含在一个称为 Scripting 的类型库中，此类型库位于 Scrrun.Dll 文件中。如果还没有引用此文件，请从“属性”菜单的“引用”对话框选择“Microsoft Scripting Runtime”项。然后就可以使用“对象浏览器”来查看其对象、集合、属性、方法、事件以及它的常数。创建 FileSystemObject 对象
第一步是创建一个 FileSystemObject 对象以便进行处理。可以通过如下两种方法完成： 将一个变量声明为 FileSystemObject 对象类型： 
Dim fso As New FileSystemObject使用 CreateObject 方法来创建一个 FileSystemObject 对象： 
Set fso = CreateObject("Scripting.FileSystemObject")在上面的语法中， Scripting 是类型库的名称，而 FileSystemObject 则是想要创建一个实例的对象的名称。注意 第一种方法只在 Visual Basic 中有效，而第二种方法在 Visual Basic 或 VBScript 中都是可行的。使用适当的方法
下一步就是使用该 FileSystemObject 对象的适当的方法。例如，如果想要创建一个新对象，既可以使用 CreateFolder 方法也可以使用 CreateTextFile 方法。（FSO 对象模型不支持创建或删除驱动器。）如果想要删除对象，可以使用 FileSystemObject 对象的 DeleteFile 和 DeleteFolder 方法，或者 File 和 Folder 对象的 Delete 方法。使用适当的方法，还可以复制、移动文件和文件夹。请注意， FileSystemObject 对象模型中有一些功能是冗余的。例如，要复制一个文件，既可以使用 FileSystemObject 对象的 CopyFile 方法，也可以使用 File 对象的 Copy 方法。这两者的功能是完全相同的。两者同时存在以提供最大的编程灵活性。访问已有的驱动器、文件和文件夹
要访问一个已有的驱动器、文件或文件夹，请使用 FileSystemObject 对象中相应的 "get" 方法： GetDrive 
GetFolder
GetFile 
例如：Dim fso As New FileSystemObject, fil As File
Set fil = fso.GetFile("c:\test.txt")但是，请注意，并不需要对新创建的对象使用"get" 方法，因为"create" 函数已经返回了一个句柄到新创建的对象。例如，如果使用 CreateFolder 方法创建了一个新的文件夹，就没有必要使用 GetFolder 方法来访问该对象的诸如名称、路径、大小等属性。只要给 CreateFolder 函数设置一个变量来获取新建文件夹的句柄，然后就可以访问其属性、方法和事件：Private Sub Create_Folder()
   Dim fso As New FileSystemObject, fldr As Folder
   Set fldr = fso.CreateFolder("C:\MyTest")
   MsgBox "Created folder: " & fldr.Name
End Sub
访问对象的属性
一旦有了对象的句柄，就能够访问其属性。例如，假定您想要获得一个特定文件夹的名称。首先要创建该对象的一个实例，然后通过适当的方法（在本例中是 GetFolder 方法，因为该文件夹已经存在）得到其句柄：Set fldr = fso.GetFolder("c:\")现在有了一个 Folder 对象的句柄，您可以查看其 Name 属性：Debug.Print "Folder name is: "; fldr.Name如果想要找出一个文件的最新修改时间，可以使用如下的语法：Dim fso As New FileSystemObject, fil As File
Set fil = fso.GetFile("c:\detlog.txt")  ' 获得要查询的 File 对象。
Debug.Print "File last modified: "; fil.DateLastModified ' 显示信息。

Answer 2

非常感谢。
请问：
1、若使用fso，如何判断某一文件夹是否存在？fso中的删除可否不论某一文件夹下有无文件、文件是否隐藏、只读而无条件删除？
2、若不使用fso，请问原语句如何修改？

Answer 3

猴哥好。
ChDir 函数更改默认目录，在上述语句中如何应用？

Answer 4

Shell "md """+TmpFilesPath+"""",vbHide

Answer 5

“MkDir只能一级一级创建”，但当无法得知该电脑中有哪一级文件夹时又如何创建所需的多层级文件夹呢？

Answer 6

自己写一个，很简单：Sub main()
    CreatePath "d:\abc\123\ddd"
End SubSub CreatePath(ByVal strPath As String)
    Dim i As Long, strPaths() As String
    
    strPaths = Split(strPath, "\")
    strPath = ""
    For i = 0 To UBound(strPaths)
        strPath = strPath + IIf(i > 0, "\", "") + strPaths(i)
        If Dir(strPath, vbDirectory) = vbNullString Then MkDir strPath
    Next
End Sub

Answer 7

使用fso弊端很多，不建议虽然使用mkdir有点不地道，但通过循环方式判断建立也不麻烦

Answer 8

Mkdir 只能建一层使用API MakeSureDirectoryPathExistsOption Explicit
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As LongPrivate Sub Command1_Click()
   MakeSureDirectoryPathExists "c:\0\1\2\3\"
   MsgBox "建立完成!"
End Sub

Answer 9

mkdir可以创建多级文件夹。写法如下：Shell ("cmd /c "" mkdir c:\1\2\3\4\5\6\7\8\9""")

Answer 10

删除文件夹，看下面2楼：
http://topic.csdn.net/u/20080619/17/c2e0aa97-a603-4447-8c07-294ba36086c2.html

Answer 11

顶一个 DOS下的命令竟然忘了它的存在

Answer 12

非常感谢各位老师抽出宝贵时间解答，提供了那么多的解决方法！
运用cbm666老师的API MakeSureDirectoryPathExists方法已解决问题，其他老师的方法正在学习。继续烦劳各位老师：
我把一个硬盘上的文件111.aaa转换为111.bbb后，如何在内存中直接运行此111.bbb文件（运行后释放），而不需要先把111.bbb文件放到临时文件夹中、再读取此文件运行，运行完毕后再删除？

Answer 13

Windiws 98/2000 的Mkdir的确是只能建一级文件夹。XP（包括XP）以上的mkdir都可以建多级文件夹了！

Answer 14

bbb是个什么类型，能否运行？打个比方：你把cmd.exe改成cmd.fff，看看能否运行。

Answer 15

我用Win2000Server，可以一次建多级目录

Answer 16

非常感谢各位老师的解答。
目前应用cbm666老师的方法已解决问题，其他老师的方法也很宝贵，待慢慢学习。
在此感谢，就此结贴。