巴黎圣母院哪个版本好:vb中这段代码怎么不起作用?

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/30 16:59:36
Private Sub scan(a As String)
Dim filename As String
filename = Dir(a)
Do While filename <> ""
If filename = "我的名片夹" Then
Else
MkDir "c:/我的名片夹"
End If
filename = Dir
Loop
End Sub

Private Sub scan(a As String) 是一个过程吗?
变量a在过程中......