VB创建文件夹，要求是一个自定义的文件夹！

[CDMAA]

VB创建文件夹，要求是一个自定义的文件夹！

[junwhj]

mkdir "c:\test"

[hengxin54]

dim fso as filesystemobject
fso.createfolder "文件夹名称"

[zjaloe]

Private Sub Create_Folder()
Dim fso As New FileSystemObject, fldr As Folder
Set fldr = fso.CreateFolder("C:\MyTest")
MsgBox "Created folder: " & fldr.Name
End Sub

[zjaloe]

Private Sub Create_Folder()
Dim fso As New FileSystemObject, fldr As Folder
Set fldr = fso.CreateFolder("C:\MyTest")
MsgBox "Created folder: " & fldr.Name
End Sub

[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

[xxlroad]

Mkdir "MYDIR" ' 建立新的目录或文件夹。
'自定义的文件夹??看不大懂 是不是 加了底图的文件夹？

[zyl910]

如果要加图标的话
需要修改该目录下的DeskTop.ini文件

[fangyds]

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

[NetMan1999]

来晚了！