给你个例子 Option ExplicitPrivate Type SECURITY_ATTRIBUTES nLength As Long lpSecurityDescriptor As Long bInheritHandle As Long End TypePrivate Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As LongPrivate Sub cmdNewFolder_Click() Dim temp As SECURITY_ATTRIBUTES CreateDirectory "C:\WINDOWS\NewFolder", temp End Sub End Sub
你还可以用filesystemobject对象创建目录 在“工程”中“引用”microsoft stripting runtime 方法如下: dim fso as new filesystemobject fso.createfolder 完整目录名
如果已经存在该目录,怎样替换原来的目录??
http://www.csdn.net/expert/topic/666/666906.xml?temp=.9986231
to: zyl910
如果已经存在该目录,怎样替换原来的目录??
====================================================================
什么意思?已经存在了
就不需要再创建了
CreateDirectory和CreateDirectoryEx
mkdir
CreateDirectory和CreateDirectoryEx
Option ExplicitPrivate Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End TypePrivate Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As LongPrivate Sub cmdNewFolder_Click()
Dim temp As SECURITY_ATTRIBUTES
CreateDirectory "C:\WINDOWS\NewFolder", temp
End Sub
End Sub
在“工程”中“引用”microsoft stripting runtime
方法如下:
dim fso as new filesystemobject
fso.createfolder 完整目录名
不过用on errot goto err1可以处理了,现在不必代替原来的目录了