api你不想要分吗，进来啊！！！

[xiongliang]

在VB中用哪个函数可创建文件夹，指出具体的API函数。

[dragon0105]

API:CreateDirectory
VB声明
Declare Function CreateDirectory& Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpNewDirectory As String, lpSecurityAttributes As SECURITY_ATTRIBUTES)
Declare Function CreateDirectoryEx& Lib "kernel32" Alias "CreateDirectoryExA" (ByVal lpTemplateDirectory As String, ByVal lpNewDirectory As String, lpSecurityAttributes As SECURITY_ATTRIBUTES)
说明
创建一个新目录
返回值
Long，非零表示成功，零表示失败。会设置GetLastError
参数表
参数 类型及说明
lpTemplateDirectory String，指定一个模板目录的名字，从中复制默认属性（比如目录中文件的默认压缩方式）。如设为vbNullString，则表示不使用模板
lpNewDirectory String，新目录的名字
lpSecurityAttributes SECURITY_ATTRIBUTES，这个结构定义了目录的安全特性——如果操作系统支持的话

[zyl910]

MkDir 语句


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

语法

MkDir path

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


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

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

[qbilbo]

Declare Function CreateDirectory& Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpNewDirectory As String, lpSecurityAttributes As SECURITY_ATTRIBUTES)
Declare Function CreateDirectoryEx& Lib "kernel32" Alias "CreateDirectoryExA" (ByVal lpTemplateDirectory As String, ByVal lpNewDirectory As String, lpSecurityAttributes As SECURITY_ATTRIBUTES)
说明
创建一个新目录
返回值
Long，非零表示成功，零表示失败。会设置GetLastError
参数表
参数 类型及说明
lpTemplateDirectory String，指定一个模板目录的名字，从中复制默认属性（比如目录中文件的默认压缩方式）。如设为vbNullString，则表示不使用模板
lpNewDirectory String，新目录的名字
lpSecurityAttributes SECURITY_ATTRIBUTES，这个结构定义了目录的安全特性——如果操作系统支持的话

[qbilbo]

Declare Function CreateDirectory& Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpNewDirectory As String, lpSecurityAttributes As SECURITY_ATTRIBUTES)
Declare Function CreateDirectoryEx& Lib "kernel32" Alias "CreateDirectoryExA" (ByVal lpTemplateDirectory As String, ByVal lpNewDirectory As String, lpSecurityAttributes As SECURITY_ATTRIBUTES)
说明
创建一个新目录
返回值
Long，非零表示成功，零表示失败。会设置GetLastError
参数表
参数 类型及说明
lpTemplateDirectory String，指定一个模板目录的名字，从中复制默认属性（比如目录中文件的默认压缩方式）。如设为vbNullString，则表示不使用模板
lpNewDirectory String，新目录的名字
lpSecurityAttributes SECURITY_ATTRIBUTES，这个结构定义了目录的安全特性——如果操作系统支持的话

[zyl910]

MkDir 语句


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

语法

MkDir path

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


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

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

[dudulang]

你可以试试CREATEDIRECTORY
vb声明：
PRIVATE DECLARE FUNCTION CTEATEDIRECTORY LIB “KERNEL32” ALIAS_
“CREATEDIRECTORYA”（BYVAL LPPATHNAME AS STRING，LPSECURITYATTRIBUTES AS SECURITY_ATTRIBUTES) AS LONG

[zhujiechang]

CreateDirectory, CreateDirectoryEx

VB声明
Declare Function CreateDirectory& Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpNewDirectory As String, lpSecurityAttributes As SECURITY_ATTRIBUTES)
Declare Function CreateDirectoryEx& Lib "kernel32" Alias "CreateDirectoryExA" (ByVal lpTemplateDirectory As String, ByVal lpNewDirectory As String, lpSecurityAttributes As SECURITY_ATTRIBUTES)
说明
创建一个新目录
返回值
Long，非零表示成功，零表示失败。会设置GetLastError
参数表
参数 类型及说明
lpTemplateDirectory String，指定一个模板目录的名字，从中复制默认属性（比如目录中文件的默认压缩方式）。如设为vbNullString，则表示不使用模板
lpNewDirectory String，新目录的名字
lpSecurityAttributes SECURITY_ATTRIBUTES，这个结构定义了目录的安全特性——如果操作系统支持的话

[zhujiechang]

好夸张，
都有APIHELP文件。

[xxlroad]

MkDir "C:\BASIC"

[中山中盈科技]

CreateFloder

[fangyds]

'创建指定的目录(可以是多级目录)
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long

'创建指定的目录(可以是多级目录)
'日期：2002-6-18
Public Function CreateDirectory(ByVal sDirectory As String) As Boolean
'sDirectory:要创建的文件夹
On Error GoTo ErrHandle
Dim lngResult As Long
sDirectory = CheckPath(sDirectory)
lngResult = MakeSureDirectoryPathExists(sDirectory)
CreateDirectory = IIf(lngResult = 0, False, True)
ErrHandle:
If Err <> 0 Then
CreateDirectory = False
End If
End Function

[fangyds]

注：CheckPath 函数
function checkpath(byval sPath as string) as string
if right$(spath,1)="\" then
checkpath=spath
else
checkpath=spath & "\"
end if
end function

[fontz]

shell "command /k md c:\mydir"

[nhconch]

这种东西也值得讨论！

[浮云]

来完了

[landog]

fso

[dsclub]

完了，真够全的

[dyx]

MKDIR

[dyx]

MKDIR

[xiongliang]

谢谢各位人兄！请多多发表各自的意见，本人非常感激！不过我还末验正，分下星期再给吧！！！