软件测试论坛 › [测试用例设计] › 这个代码如何运行

aghuang 发表于 2007-1-23 11:23:08

这个代码如何运行

'create the foloder
Sub AddNewFolder(path, folderName)

   Dim fso, f, fc, nf,msg,fso1

   Set fso = CreateObject("scripting.FileSystemObject")
   Set f = fso.GetFolder(path)
   Set fso1= CreateObject("scripting.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!")
    Ifmsg=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:\CreateFolder.vbs"
te="e:\"
te1="test"
Call AddNewFolder(te,te1)

flytigerboy 发表于 2007-1-25 16:42:20

vb.net的代码也整理到这里来了?

aghuang 发表于 2007-1-26 12:58:38

就是在本站看到的。在xp上运行不了

查看完整版本: 这个代码如何运行