标签：
‘在本地创建一个文件夹
Function createfolder(folderpath)
Dim sfo,f
Set sfo = createobject("scripting.filesystemobject")
If sfo.FolderExists(folderpath)=false Then
Set f = sfo.CreateFolder(folderpath)
End If
Set sfo = nothing
End Function
标签：
原文地址：http://www.cnblogs.com/aliceluo/p/5585735.html
