vb复制到文件夹

‘壹’ VB将程序所在的文件夹里的文件复制到指定文件夹里

比如把当前程序所在目录的a.txt复制到d盘123目录下名为a.txt,则可用如下语句
FileCopy
App.Path
&
"/a.txt"
"d:/123/a.txt"
FileCopy
"源文件"
"目标路径和文件名"

‘贰’ 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帮助

‘叁’ vb复制指定文件到选定的文件夹

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
End Type

Private Declare Function SHFileOperation Lib _
"shell32" _
(lpFileOp As SHFILEOPSTRUCT) As Long
Private Declare Function GetWindowsDirectory _
Lib "kernel32" Alias "GetWindowsDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As _
Long) As Long

Const FO_COPY = &H2
Const FO_DELETE = &H3
Const FO_MOVE = &H1
Const FO_RENAME = &H4
Const FOF_ALLOWUNDO = &H40
Const FOF_NOCONFIRMATION = &H10

Dim DirString As String

Private Sub Command1_Click()
Dim xFile As SHFILEOPSTRUCT
xFile.pFrom = app.path & abc & "*.*" '路径不对自己改改
xFile.pTo = app.path & combo1.text '路径不对自己改改
xFile.fFlags = FOF_ALLOWUNDO
xFile.wFunc = FO_COPY
xFile.hwnd = Me.hwnd
If SHFileOperation(xFile) Then
End If

End Sub

‘肆’ VB怎么用file复制文件夹

VB复制文件夹使用CopyFolder方法实现。

CopyFolder 方法

描述

从一个地方递归地复制一个文件夹到另一个地方。

语法

object.CopyFolder source, destination[,
overwrite]

PrivateSubCommand1_Click()
CreateObject("scripting.filesystemobject").folder"c:ProgramFiles","D:ProgramFiles"
EndSub

‘伍’ 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 复制文件及文件夹

这么简单的东西，你就不用花冤枉钱了，我免费给你：

PrivateSubForm_Load()
Me.OLEDropMode=1
EndSub

PrivateSubForm_OLEDragDrop(DataAsDataObject,EffectAsLong,ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Dimff,fsoAsObject,fnAsInteger,dnAsInteger
Setfso=CreateObject("scripting.filesystemobject")
ForEachffInData.Files
Iffso.fileexists(ff)Then
fso.fileff,"d:	mp"&fso.getfilename(ff)&"."&Format(Now,"yyyymmddhhnnss"),True
fn=fn+1
Else
fso.folderff,"d:	mp"&fso.getfilename(ff)&"."&Format(Now,"yyyymmddhhnnss"),True
dn=dn+1
EndIf
Next
Setfso=Nothing
MsgBox"共复制"&fn&"个文件，"&dn&"个文件夹"
EndSub

以上代码没有用到任何控件，也不需进行任何设置，直接把代码复制到窗体的代码区，编译为EXE文件即可。运行后把文件或文件夹拖到窗体中即可，可以多个文件同时拖，也可以文件和文件夹混合拖。

文件的保存位置是d: mp，你可以自己改。

时间后缀我是直接加在文件或文件夹的后面的，如果不符要求你可以自己改，让我改也行。

另外这是VB6的代码，如果你要的不是这个版本的，那就对不起了。

‘柒’ VB中怎么将一个文件复制到指定文件夹

Dim fs ' 先声明一个变体型
Set fs = CreateObject("Scripting.FileSystemObject") '创建文件系统对象fs
fs.file "D:\to.txt", "E:\" '使用该对象的file方法将源文件复制到目标文件

‘捌’ 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如何把选择的文件复制到指定文件夹

这是你单击按键上的代码，如果你不希望打开后同时保存的话，声明个窗体级变量，把CommonDialog1.FileName保存到里面，到时在利用那个变量来复制文件。Dim a As String, b As StringCommonDialog1.InitDir = App.Path & "\"
CommonDialog1.Filter = "所有文件|*.*|"
CommonDialog1.ShowOpen
a = CommonDialog1.FileNameb = CommonDialog1.FileTitle
FileCopy a, "c:\file\" & b
End If

‘拾’ 在VB里用什么语句实现把文件复制到指定的文件夹目录下边啊哪位高手指点一下，最好举个例子！

这个很简单：
比如把c:\aa目录中所有文件复制到d:\aa中，只要一行代码
shell
"x
c:\aa
d:\aa\
/e
/c
/y",
0
/e
复制目录和子目录，包括空的
/c
即使有错误，也继续复制
/y
禁止提示以确认改写文件
后面加0表示以隐藏方式运行
加的这些参数都是为了隐蔽性和自动性加的
目标文件夹可以不用先创建，它会自动创建
要记得目标文件夹后面要加\，请参照上面的代码