在线等待－－100分（非常着急,怎么用代码在某一个路径下创建一个文件夹)?

[egg0817]

在线等待－－100分（非常着急,怎么用代码在某一个路径下创建一个文件夹)?

[射天狼]

MkDir 语句

创建一个新的目录或文件夹。

语法

MkDir path

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

[射天狼]

本示例使用 MkDir 语句来创建目录或文件夹。如果没有指定驱动器，新目录或文件夹将会建在当前驱动器中。

Mkdir "MYDIR" ' 建立新的目录或文件夹。

[acmo]

MkDir (路径)

[馮強]

exec("md " & app.path & "yourdirname")

[pcwak]

MkDir "C:\new"

[zjcxc]

MkDir "C:\new"

[LuYao]

两种方法：
Private Declare Function CreateDirectory& Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpNewDirectory As String, lpSecurityAttributes As SECURITY_ATTRIBUTES)
Private Type SECURITY_ATTRIBUTES
nLength As Long
bInheritHandle As Long
lpSecurityDescriptor As Long
End Type
Private Sub Command1_Click()'第一种
Dim my As SECURITY_ATTRIBUTES
CreateDirectory "d:\my", my
End Sub

Private Sub Command2_Click()'第二种
MkDir "d:\my"
End Sub

[seraph2]

用scripting.filesystemobjec引用这个，利用系统自带的对象可以创建文件夹，文件，写文件、删除等功能够可以实现，可以在csdn中查到，应用的对象是running。scripting，有提示，先测试好用后，再改成代码引用----没有任何提示的引用，因为在其他平台下可以不会好用。

[kangqing]

我是菜鸟 搬个板凳坐这里学习 帮你顶~~~~~~~~~

[hxy2003]

MkDir

[chenlishu413]

scripting.filesystemobject中的createfolder的方法

[jpinglee]

MkDir app.path & "\file_name"在当前目录下创建文件

[Gelim]

Private Declare Function CreateDirectory& Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpNewDirectory As String, lpSecurityAttributes As SECURITY_ATTRIBUTES)
Private Type SECURITY_ATTRIBUTES
nLength As Long
bInheritHandle As Long
lpSecurityDescriptor As Long
End Type
Private Sub Command1_Click()'第一种
Dim my As SECURITY_ATTRIBUTES
CreateDirectory "d:\my", my
End Sub

Private Sub Command2_Click()'第二种
MkDir "d:\my"
End Sub

[shanterry]

mkdir “路径”

[rainstormmaster]

总结一下：
MkDir
FSOD对象中的createfolder的方法
api函数CreateDirectory
都可以创建文件夹

推荐使用mkdir

[null1]

注意使用mkdir时要使用完整的路径

[boydgmx]

方案一：使用FileSystemObject对象

事先添加引用“Microsoft Scripting Runtime”,然后调用下述过程即可。
例如：
Call CreateDestFolder("D:\a\b\c\d")
则可以一次性创建多层目录

'递规地创建目标文件夹
Private Sub CreateDestFolder(ByVal FolderSpec As String)
Dim CurrFld As String
Dim Fsys As New FileSystemObject
If Fsys.FolderExists(FolderSpec) Then
Exit Sub
End If
CurrFld = Fsys.GetParentFolderName(FolderSpec) '获取其父文件夹
If Fsys.FolderExists(CurrFld) Then
Fsys.CreateFolder (FolderSpec)
Else
Call CreateDestFolder(CurrFld)
Fsys.CreateFolder (FolderSpec)
End If
End Sub

方案二：使用Shell函数，执行Cmd.exe，仅适用于Windows2000
Shell "CMD.EXE /C MD """ & DestFolder & """", vbHide

[hn123]

up