主题：MakeDir

If vars("ljwjj") = "" Then msgBox(1) '这里第一次会弹吗？     Dim ftp As New FtpClient     If Network.Ping("192.168.1.72", 1000) = False Then         ftp.Host = "180.169.230.117"     Else         ftp.Host = "192.168.1.72"     End If      ftp.Account = "XXX"     ftp.Password = "XXXXXX"      msgBox(2) '这里第一次会弹吗？          ftp.ChangeDir("/需求文档/") msgBox(3) '这里第一次会弹吗？     Dim lj As String = "/需求文档/" & Tables("需求明细表").current("需求编号")     msgBox(lj)------'第一次不弹这个msgbox(lj),第二次才弹这个msgbox(lj),不应该每次执行到这都要弹出来么。当不弹msgbox的情况下，就不会创建目录MakeDir(lj)，这是咋回事。     If ftp.DirExists(lj) = False Then '不存在临时版本编号目录时先创建临时版本编号目录 msgBox(4) '这里第一次会弹吗？         ftp.MakeDir(lj)     End If          Tables("需求明细表").current("附件") = lj     vars("ljwjj") = lj               ftp.Close Else msgBox(11) '这里第一次会弹吗？     vars("ljwjj") = Tables("需求明细表").current("附件")          Functions.Execute("xqwjlistview") End If

1、2、3、5第一次有没有弹？

没看懂。每次执行上面所有的msgBox，有哪些弹出来，哪些没有弹出来？

应该是