‘在本地创建一个文件夹
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
时间: 2024-10-03 08:58:58