添加引用Microsoft Scripting RuntimeDim fso As New FileSystemObject, fdr As Folder,fdrPath as String
fdrPath="C:\newfolder"
fdr = fso.CreateFolder(fdrPath)fdrPath是要创建文件夹的路径

解决方案 »

  1.   

    最简单的方法:创建新目录或文件夹。Public Sub MkDir(ByVal Path As String)
    参数
    Path 
    必选。String 表达式,标识要创建的目录或文件夹。Path 可能包含驱动器。如果未指定驱动器,则 MkDir 在当前驱动器上创建新的目录或文件夹。 
    函数MkDir可以直接使用
      

  2.   

    MkDir 语句
          创建一个新的目录或文件夹。语法MkDir path必要的 path 参数是用来指定所要创建的目录或文件夹的字符串表达式。path 可以包含驱动器。如果没有指定驱动器,则 MkDir 会在当前驱动器上创建新的目录或文件夹。
      

  3.   

    Public Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As Long '创建多层目录用法:
    MakeSureDirectoryPathExists "c:\this\is\a\test\directory\"