VB创建文件夹错误代码请修改

Question

本帖最后由 bcrun 于 2010-09-04 08:31:18 编辑

Answer 1

Private Sub Form_Load()
on error resume next
下面代码照旧，这一句是用来忽略错误的，慎用

Answer 2

 For i1 = 0 To 3
   MkDir "E:\比赛项目"
.............
 Next i1
这怎么可能循创建呢？岂不是出现同名文件夹？End
 If Dir("e:\比赛项目\选手名单\") = " " Then MkDir "e:\比赛项目\选手名单\" '以下是创建文件夹中的TXT文件
Open "e:\比赛项目\选手名单\abc.txt" For Output As #1
Print #1, Text1.Text
Close #1
前面加了end，还会往下执行吗？