麻烦各位帮我看一下，小弟新手，搞不懂，谢谢

[cnlomo]

      Dim QQfso
            Dim QQfldr
            Dim QQDocuments
            Set QQfso = CreateObject("Scripting.FileSystemObject")
            Set QQDocuments = CreateObject("WScript.Shell")
            Set QQfldr = QQfso.CreateFolder(QQDocuments.SpecialFolders("MyDocuments") & "\123\abc")
            'MsgBox QQfldr
            fso.CopyFolder fname & List1 & "\*", QQfldr

我就是想实现一个简单的文件夹复制功能，可是我搞不懂，新手真痛苦。
上面的代码很多地方都没写完全，定义部分和下面的执行部分。
问题是，MyDocuments下没有123文件夹，所以建立abc文件夹时提示找不到路径，大家帮帮忙。
还有，如果本来就有abc文件夹，他会提示文件夹已存在，咋能让他变成有则不建立，无则建立。

[cnlomo]

这是代码：
Dim QQfso
Dim QQfldr
Dim QQDocuments
Set QQfso = CreateObject("Scripting.FileSystemObject")
Set QQDocuments = CreateObject("WScript.Shell")
Set QQfldr = QQfso.CreateFolder(QQDocuments.SpecialFolders("MyDocuments") & "\123\abc")
'MsgBox QQfldr
fso.CopyFolder fname & List1 & "\*", QQfldr

[WizardBear]

没看懂。。。

[cnlomo]

代码在二楼

[forbearORfolie]

用dir函数

[cbm6666]

Private Sub Command1_Click()
If Dir(Environ("userprofile") & "\My Documents\123", vbDirectory) = "" Then MkDir Environ("userprofile") & "\My Documents\123"
End Sub

[MiloSoft]

Private Sub Command1_Click()
Dim fso As Object
Dim mFolderName$

mFolderName$ = "d:\test"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(mFolderName$) Then
    MsgBox "文件夹" & mFolderName$ & "已存在"
    Exit Sub
Else
    fso.CreateFolder mFolderName$
End If

End Sub