完成我所完成的事,我将要离去.
用vbs新建文件夹的方法
上一篇 /
下一篇 2006-12-29 13:46:08
/ 个人分类:vbs脚本
近来测试的时候,有做到一些保存文件的部分.于是同事拿去他那里跑,但是不知道不成功,因为我有的文件夹他没有,于是就想到了用VBS创建文件夹,在创建的时候去检索一下是否在此盘下有此文件夹,如果有的话,就不创建,如果没有的话,就弹出对话框,询问是否创建文件夹.这样就方便多了,只需要在调用此函数的时候,把盘符和文件名传过去就行了.
'create the foloder
Sub AddNewFolder(path, folderName)
Dim fso, f, fc, nf,msg,fso1
Set fso = CreateObject("scrīpting.FileSystemObject")
Set f = fso.GetFolder(path)
Set fso1= CreateObject("scrīpting.FileSystemObject")
Set fc=f.SubFolders
If not (fso1.FolderExists(path&folderName)) Then
'msgbox "exists "
' Else
msg= MsgBox ("create the folder?", 4, "not find the test folder!")
If msg=6 Then '6yes,7no
Set nf = fc.Add(folderName)
End If
' Else
' Set nf = fc.Add("New Folder")
'End If
End If
end sub
调用函数
Dim te,te1
ExecuteFile "C:\Program Files\Mercury Interactive\QuickTest Plus\scrīptsAndTests\CreateFolder.vbs"
te="e:\"
te1="test"
Call AddNewFolder(te,te1)
收藏
举报
TAG:
vbs脚本