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

cnlomo 2008-03-18 09:12:00
      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文件夹,他会提示文件夹已存在,咋能让他变成有则不建立,无则建立。
...全文
38 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
MiloSoft 2008-03-18


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


回复
cbm6666 2008-03-18
Private Sub Command1_Click()
If Dir(Environ("userprofile") & "\My Documents\123", vbDirectory) = "" Then MkDir Environ("userprofile") & "\My Documents\123"
End Sub

回复
forbearORfolie 2008-03-18
用dir函数
回复
cnlomo 2008-03-18
代码在二楼
回复
WizardBear 2008-03-18
没看懂。。。
回复
cnlomo 2008-03-18
这是代码:
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
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7489

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-03-18 09:12
社区公告
暂无公告