调用 createfolder函数
createfolder("C:\Users\lcy\Desktop\UFTtest\test")
'在本地创建一个文件夹的封装函数
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
转载于:https://www.cnblogs.com/aliceluo/p/5585735.html