VB中创建文件夹出错???
VB中创建文件夹出错???今天兴趣中实践了下该站中的一个帖子 -- VB中创建文件夹,结果报错,让我有点郁闷!
我乃菜鸟入道,想大家指点指点!
状况如下:
CODE:
Private Sub Command2_Click()
Dim fo As New FileSystemObject
If fo.FileExists("D:B512320") Then
MsgBox ("文件夹已经存在")
Else
fo.CreateFolder ("D:B512320")
MsgBox ("文件夹已经被创建")
End If
End Sub
描述如下:
NO.1 程序运行后首次点击Command2(前提:D盘符中无B512320文件夹),结果显示MsgBox ("文件夹已经被创建"),这段程序很OK;
NO.2 接着再次点击Command2(前提:D盘符中有B512320文件夹),结果显示“实时错误58”并且光标停留在fo.CreateFolder ("D:B512320")这一步,不理解啊;按照这个语句没道理执行到ELSE后面去了啊;
另:我关闭程序后再次运行,然后点击Command2,结果是一样的;
请求帮助!