form_load中的问题

更新时间2020-11-29 01:30:42

第一次运行正常，第二次vb报错：“58，文件已存在”，是哪里有问题吗，谢谢。
代码如下
Private Sub Form_Load()
Form1.Hide '记录登陆时间
If Dir("c:/1", vbNormal) = "" Then
Call Command7_Click '触发新建文件夹的command7_click 过程
End If
Open "c:/1/1.txt" For Append As #4
Print #4, Now
Close #4
 
Form1.Show
Private Sub Command7_Click()
Set fso = CreateObject("Scripting.filesystemobject")
fso.CreateFolder ("c:1")
End Sub