createdirectory(createdirectory 5)
CreateDirectory用法的完整代码
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，这个结构定义了目录的安全特性——如果操作系统支持的话
示例程序代码如下：
‘定义结构
Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
‘函数声明
Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpNewDirectory As String, lpSecurityAttributes As SECURITY_ATTRIBUTES)
Private Declare Function CreateDirectoryEx Lib "kernel32" Alias "CreateDirectoryExA" (ByVal lpTemplateDirectory As String, ByVal lpNewDirectory As String, lpSecurityAttributes As SECURITY_ATTRIBUTES)
Private Sub form_load()
Dim temp As SECURITY_ATTRIBUTES
CreateDirectory "c:\test", temp ‘创建文件夹
End Sub
createdirectory 失败
你应该没有正确使用CreateDirectory函数。
BOOLCreateDirectory(LPCTSTRlpPathName,
LPSECURITY_ATTRIBUTESlpSecurityAttributes);
第一个参数值为文件夹名称，第二个参数值为安全属性，一般设置为NULL即可。如果正确创建，返回值为1，如果没有正常创建文件夹，则返回0。
特别的：该函数每次调用时都只能创建一级文件夹，即文件夹中不能再包含子文件夹。
当希望创建含有子文件夹的文件夹时，可以先使用该函数创建一级文件夹，然后再使用该函数在一级文件夹下创建子文件夹。如：
希望创建：d:\\TEST\\temp，
则：CString str = “d:\\TEST”;
CreateDirectory(str, NULL);
str = str + “\\temp”;
CreateDirectory(str, NULL);
这里的路径里的杠，必须是双杠(\\)。
如何用CreateDirectory建立多级目录
建议使用MakeSureDirectoryPathExists函数，CreateDirectory不支持建立多级目录。 Eg： MakeSureDirectoryPathExists("C:\\Documents and Settings\\Administrator\\Application Data\\1\\2\\"); 在Application Data目录下新建了文件夹1，然后在...
