Form_Load过程中的问题

更新时间2020-11-29 06:01:24

这两段代码在初次运行时是正常的，但是第二次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

你对文件夹的判断不正确，它要用vbDirectory而不能用vbNormal，后者是判断文件用的