51Testing软件测试论坛

标题: VBScript 求助 [打印本页]

作者: calvin_wang 时间: 2007-8-9 18:35
标题: VBScript 求助
输入文件夹路径,如果文件夹不存在, 弹出对话框询问是否需要创建,点YES就创建,点NO就返回到第二行输入对话框那里,如何返回??

Set objfso = CreateObject("scripting.filesystemobject")
strFolderPath = Trim(InputBox("Path"))
If Not objfso.FolderExists(strFolderPath) = True Then
  path = MsgBox("路径不存在,是否创建",vbYesNo)
  If path = 6 Then objfso.CreateFolder(strFolderPath)
  Else '在这我想返回执行第二行语句,该怎么办啊??

作者: marco 时间: 2007-8-9 23:11
第二句前面加个while 语句
while path <> 6
strFolderPath = Trim(InputBox("Path"))
If Not objfso.FolderExists(strFolderPath) = True Then
  path = MsgBox("路径不存在,是否创建",vbYesNo)
  If path = 6 Then objfso.CreateFolder(strFolderPath)
  Else '在这我想返回执行第二行语句,该怎么办啊??
wend

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)