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

原文轉自：http://www.kjueaiud.com