vb将一个文件夹复制
① VB 如何复制文件夹
我又修改了下代码，添加个按钮，粘贴代码后就可用了。
====================
不用FSO的复制文件夹得方法
用API函数 SHFileOperation
以下是使用SHFileOperation删除复制移动文件的例子，可以复制文件夹
Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String '只有在 FOF_SIMPLEPROGRESS 时用
End Type
Private Declare Function SHFileOperation Lib _
"shell32.dll" Alias "SHFileOperationA" (lpFileOp _
As SHFILEOPSTRUCT) As Long
'wFunc 常数
'FO_COPY 把 pFrom 文件拷贝到 pTo。
Const FO_COPY = &H2
'FO_DELETE 删除 pFrom 中的文件（pTo 忽略）。
Const FO_DELETE = &H3
'FO_MOVE 把 pFrom 文件移动到 pTo。
Const FO_MOVE = &H1
'fFlag 常数
'FOF_ALLOWUNDO 允许 Undo 。
Const FOF_ALLOWUNDO = &H40
'FOF_NOCONFIRMATION 不显示系统确认对话框。
Const FOF_NOCONFIRMATION = &H10
'FOF_NOCONFIRMMKDIR 不提示是否新建目录。
Const FOF_NOCONFIRMMKDIR = &H200
'FOF_SILENT 不显示进度对话框
Const FOF_SILENT = &H4
Private Sub Command1_Click()
'例子：
Dim SHFileOp As SHFILEOPSTRUCT
' 拷贝
SHFileOp.wFunc = FO_COPY
SHFileOp.pFrom = "d:\MASM611"
SHFileOp.pTo = "c:\MASM611"
SHFileOp.fFlags = FOF_NOCONFIRMMKDIR
Call SHFileOperation(SHFileOp)
End Sub
或者用命令行
shell "cmd.exe /c x "+chr(34)+"C:\新建文件夹 c:\aa /q /e" +chr(34)
② vb中如何将一个文件的所有东西复制到另一个文件夹
调用外部的dos
的命令,可以实现的要求...
shell
"cmd
/c
c:\1.doc
d:\001\"
用vb的文件复制,需要指定目标文件的姓名.
不过这样不符合你的要求.
Dim
result,
Sourcefile,
Destinationfile
As
String
result
=
MsgBox(
"确定要复制吗？
",
vbYesNo,
"询问
")
If
result
=
vbYes
Then
Sourcefile
=
"c:\1.doc"
Destinationfile
=
"d:\001\1.doc"
FileCopy
Sourcefile,
Destinationfile
End
If
③ VB怎样将文件夹复制到指定位置，注意是文件夹。
VB复制文件夹使用CopyFolder方法实现。
CopyFolder 方法
描述
从一个地方递归地复制一个文件夹到另一个地方。
语法
object.CopyFolder source, destination[,
overwrite]
实现代码中的source路径不能有错，否则VB报错。
将C盘下的Program Flles目录夹复制到D盘Program Flles目录夹的实际代码如下：
Private Sub Command1_Click()
CreateObject("scripting.filesystemobject").folder "c:\Program Files", "D:\Program Files"
End Sub
④ VB中怎么将一个文件复制到指定文件夹
Dim fs ' 先声明一个变体型
Set fs = CreateObject("Scripting.FileSystemObject") '创建文件系统对象fs
fs.file "D:\to.txt", "E:\" '使用该对象的file方法将源文件复制到目标文件
⑤ vb中复制文件
用API函数 SHFileOperation的方法。
⑥ VB 复制文件夹函数
用CopyFolder 方法可以复制文件夹。
语法
object.CopyFolder source, destination[, overwrite]
其中，object只能是FileSystemObject对象(见后面示例).
CopyFolder 方法语法有如下几部分：
Object 必需的。始终为一个 FileSystemObject 的名字。
source 必需的。指明一个或多个被复制文件夹的字符串文件夹说明，可以包括通配符。
destination 必需的。指明 source 中被复制文件夹和子文件夹的接受端的字符串，不允许有通配符。
overwrite 选项的。Boolean 值，它表示已存在的文件夹是否被覆盖。如果为 True，文件被覆盖。如果为 False，文件不被覆盖。缺省值为 True。
说明
通配符仅可用于 source 参数的最后一个路径部件。例如你可以在下面情况使用它：
FileSystemObject.CopyFolder "c:\mydocuments\letters\*", "c:\tempfolder\"
但不能在下面情况使用它：
FileSystemObject.CopyFolder "c:\mydocuments\*\*", "c:\tempfolder\"
如果 source 包含通配符或 destination 以路径分隔符（\）为结尾，则认为 destination 是一个已存在的文件夹，在其中复制相匹配的文件夹和子文件夹。否则认为 destination 是一个要创建的文件夹的名字。不论何种情况，当复制一个文件夹时，可能发生四种事件。
如果 destination 不存在，source 文件夹和它所有的内容得到复制。这是通常的情况。
如果 destination 是一个已存在的文件，则发生一个错误。
如果 destination 是一个目录，它将尝试复制文件夹和它所有的内容。如果一个包含在 source 的文件已在 destination 中存在，当 overwrite 为 False 时发生一个错误，否则它将尝试覆盖这个文件。
如果 destination 是一个只读目录，当尝试去复制一个已存在的只读文件到此目录并且 overwrite为 False 时，则发生一个错误。
如果 source 使用的通配符不能和任何文件夹匹配，也发生一个错误。
CopyFolder 方法停止在它遇到的第一个错误上。不要尝试回卷错误发生前所做的任何改变。
示例：
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "C:\Downloads\", "D:\"
FileSystemObject对象除了CopyFolder方法，还有其它很多，如BuildPath、CopyFile、CreatFolder等等，详见msdn帮助