VBScript 求助

calvin_wang

输入文件夹路径,如果文件夹不存在, 弹出对话框询问是否需要创建,点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

第二句前面加个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