UFT创建文件夹


调用 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

posted @ 2016-06-14 22:40  alice云学习  阅读(342)  评论(0编辑  收藏  举报