『壹』 VB复制文件夹中文件，以指定路径的文件夹中文件复制到另一个文件夹！
VB6.0使用CopyFile 方法来实现把一个或多个文件从一个地方复制到另一个地方。
CopyFile 方法。
描述，把一个或多个文件从一个地方复制到另一个地方。
语法：
说明
通配符只能用在 source 参数的最后一个路径部件。例如你可以在下面请况使用通配符：
FileSystemObject.CopyFile "c:mydocumentsletters*.doc", "c:empfolder"
但下面情况不能使用：
FileSystemObject.CopyFile "c:mydocuments*R1???97.xls", "c:empfolder"
如果 source 包含通配符或 destination以路径分隔符（）为结尾，则认为 destination是一个已存在文件夹，在其中复制相匹配的文件。否则认为 destination 是一个要创建文件的名字。不论是那种情况，当复制一个文件时，可能发生三种事件。
1. 如果 destination 不存在，source 得到复制。这是通常的情况。
2.如果 destination 是一个已存在的文件，则当 overwrite 值为 False 时发生一个错误，否则，source的复制文件将试图覆盖已存在文件。
3.如果 destination 是一个目录，发生一个错误
如果使用通配符的 source 不能和任何文件匹配，同样产生一个错误。CopyFile 方法停止在它遇到的第一个错误上。不要试图回卷或撤消错误发生前所做的任何改变。
『贰』 vb中复制文件的方法是什么
用API函数 SHFileOperation的方法。
『叁』 VB怎样复制文件夹（包括里面的文件）
给你一个列子sourcePath 为源文件地址targetPath 存放文件的地址 '复制文件夹到指定位置 Function CopyDir(ByVal sourcePath As String, ByVal targetPath As String) As Boolean Try '检查目标目录是否以目录分隔符结束，不是则添加 If Microsoft.VisualBasic.Right(targetPath, 1) <> "" Then targetPath += System.IO.Path.DirectorySeparatorChar '判断目标目录是否存在，不存在则新建 If Not Directory.Exists(targetPath) Then Directory.CreateDirectory(targetPath) '得到源目录的文件列表，该文件裏面是包含文件以及目录路径的一个数组 Dim fileList As String() = Directory.GetFileSystemEntries(sourcePath) '遍历所有的文件和目录 For Each filepath As String In fileList '目录处理，递归 If (Directory.Exists(filepath)) Then CopyDir(filepath, targetPath + Path.GetFileName(filepath)) Else '复制文件 File.Copy(filepath, targetPath + Path.GetFileName(filepath), True) End If Next Return True Catch ex As Exception Return False End Try End Function希望对你有所帮助·····
『肆』 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中复制文件
用API函数 SHFileOperation的方法。
『陆』 VB怎么用file复制文件夹
VB复制文件夹使用源CopyFolder方法实现。
CopyFolder 方法
描述
从一个地方递归地复制一个文件夹到另一个地方。
语法
object.CopyFolder source, destination[, overwrite]
PrivateSubCommand1_Click()CreateObject("scripting.filesystemobject").folder"c:ProgramFiles","D:ProgramFiles"EndSub
『柒』 VB中怎么将一个文件复制到指定文件夹
语法object.CopyFile source, destination[, overwrite]CopyFile 方法语法有如下几部分：部分 描述 object 必需的。object始终是一个 FileSystemObject 的名字。 source 必需的。指明一专个或多个要被复制文件的属字符串文件说明，它可以包括通配符。 destination 必需的。指明 source 中的一个或多个文件要被复制到的接受端的字符串，不允许有通配符。 overwrite 选项的。Boolean 值，它表示存在的文件是否被覆盖。如果是 True，文件将被覆盖；如果是 False，它们不被覆盖。缺省值是 True。注意如果 destination 具有只读属性设置，不论 overwrite 值如何，CopyFile 都将失败。说明通配符只能用在 source 参数的最后一个路径部件。例如，你可以在下面请况使用通配符：FileSystemObject.CopyFile "c:\mydocuments\letters\*.doc", "c:\tempfolder\"
『捌』 vb 复制文件及文件夹
这么简单的东西，你就不用花冤枉钱了，我免费给你：
PrivateSubForm_Load()Me.OLEDropMode=1EndSubPrivateSubForm_OLEDragDrop(DataAsDataObject,EffectAsLong,ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Dimff,fsoAsObject,fnAsInteger,dnAsIntegerSetfso=CreateObject("scripting.filesystemobject")ForEachffInData.FilesIffso.fileexists(ff)Thenfso.fileff,"d:mp"&fso.getfilename(ff)&"."&Format(Now,"yyyymmddhhnnss"),Truefn=fn+1Elsefso.folderff,"d:mp"&fso.getfilename(ff)&"."&Format(Now,"yyyymmddhhnnss"),Truedn=dn+1EndIfNextSetfso=NothingMsgBox"共复制"&fn&"个文件，"&dn&"个文件夹"EndSub
以上代码没有用到任何控件，也不需进行任何设置，直接把代码复制到窗体的代码区，编译为EXE文件即可。运行后把文件或文件夹拖到窗体中即可，可以多个文件同时拖，也可以文件和文件夹混合拖。
文件的保存位置是d:mp，你可以自己改。
时间后缀我是直接加在文件或文件夹的后面的，如果不符要求你可以自己改，让我改也行。
另外这是VB6的代码，如果你要的不是这个版本的，那就对不起了。
『玖』 vb中如何将一个文件的所有东西复制到另一个文件夹
调用外部的dos的命令,可以实现的要求…shell"cmd/cc:\1.docd:\001\"用vb的文件复制,需要指定目标文件的姓名.不过这样不符合你的要求.Dimresult,Sourcefile,DestinationfileAsStringresult=MsgBox("确定要复制吗？",vbYesNo,"询问")Ifresult=vbYesThenSourcefile="c:\1.doc"Destinationfile="d:\001\1.doc"FileCopySourcefile,DestinationfileEndIf
『拾』 在VB中如何复制文件
1.VB自己的命令 file text1.text,text2.text 2.VBS的命令 Set fso = CreateObject("Scripting.FileSystemObject") fso. text1.text,text2.text 全部删除复制 移动的如下： dim a,b,c On Error Resume Next c=inputbox("请输入操作代码：1.删除；2.复制，3.移动","6921833","D:") a=inputbox("请输入源文件的目录","6921833","D:") if c<>1 then b=inputbox("请输目标文件夹","6921833","D:") else b=0 end if Tree(a,b,c) Set WshSHell = WScript.CreateObject("WScript.Shell") msgbox"OK" Function Tree(sPath,spath2,whatdo) On Error Resume Next Dim WshSHell,oFso Set oFso = CreateObject("Scripting.FileSystemObject") Set oFolder = oFso.GetFolder(sPath) Set oSubFolders = oFolder.Subfolders Set oFiles = oFolder.Files For Each oFile In oFiles '文件 if whatdo=1 then oFile.delete elseif whatdo=2 then oFile.Copy (spath2) elseif whatdo=3 oFile.Movw (spath2) end if Next For Each oSubFolder In oSubFolders TreeIt(oSubFolder.Path)'递归 Next Set objFolder=oFso.Getfolder(a) Set subFolders=objFolder.subFolders For Each subFolder In subFolders On Error Resume Next if whatdo=1 then subfolder.Delete(True) If Err Then err.Clear Else End If Next Set oFolder = Nothing Set oSubFolders = Nothing Set oFso = Nothing End Function
未经允许不得转载：山九号 » vb文件夹复制文件|VB怎么用filecopy复制文件夹
