❶ vb拷贝文件夹命令
'------------------------------------
'定义win文件夹操作的函数（复制和删除，其它的(移动、改名)没用到）
'删除文件夹的函数：KillPath(path)
'复制文件夹的函数：CopyPath(mpath,tPath)
'------------------------------------
Private Const FO_MOVE = &H1
Private Const FO_COPY = &H2
Private Const FO_DELETE = &H3
Private Const FO_RENAME = &H4
Private Const FOF_NOCONFIRMATION = &H10
Private Const FOF_SILENT = &H4
Private Const FOF_NOERRORUI = &H400
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
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 'only used if FOF_SIMPLEPROGRESS
End Type
'删除文件夹的函数：KillPath(path)
Public Function KillPath(ByVal sPath As String) As Boolean
On Error Resume Next
Dim udtPath As SHFILEOPSTRUCT
udtPath.hwnd = 0
udtPath.wFunc = FO_DELETE
udtPath.pFrom = sPath
udtPath.pTo = ""
udtPath.fFlags = FOF_NOCONFIRMATION Or FOF_SILENT Or FOF_NOERRORUI
KillPath = Not CBool(SHFileOperation(udtPath))
End Function
'复制文件夹的函数：CopyPath(mpath,tPath)
Public Function CopyPath(ByVal mPath As String, ByVal tPath As String) As Boolean
On Error Resume Next
Dim shfileop As SHFILEOPSTRUCT
shfileop.hwnd = 0
shfileop.wFunc = FO_COPY
shfileop.pFrom = mPath
shfileop.pTo = tPath
shfileop.fFlags = FOF_NOCONFIRMATION Or FOF_SILENT Or FOF_NOERRORUI
CopyPath = Not CBool(SHFileOperation(shfileop))
End Function
'------------------------
'------------------------
❷ vb中复制文件
用API函数 SHFileOperation的方法。
❸ VB 复制文件夹函数
用 方法可以复制文件夹。
语法
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怎样将文件夹复制到指定位置，注意是文件夹。
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中如何复制文件
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复制文件夹有几种方法
首先你说的这几种方法都可以有相应的实现方法，下面一一列举：1.vb函数实现复制文件夹。首先要指出，vb有6个基本的关于文件或文件夹操作的函数：(1)建立文件夹的函数MkDir;(2)改变当前文件夹ChDir;(3)删除文件夹RmDir;(4)删除文件kill;(5)复制文件FileCopy;(6)文件的改名和移动。但却没有直接的文件夹整体复制的基本函数。但用以上这些基本的函数却可以实现文件夹的任何操作:下面以例子来说明：在D盘根目录下有一个a文件夹,里边有很多文件，现在把它复制到"D:\aa"中去，aa是D盘中的一个文件夹.实现过程这样，(1)先在D:\aa中创建一个文件夹名为a，用函数MkDir;(2)然后把依次把D:\a中的文件复制到D:\aa\a中去。程序实现如下:Private Sub Command1_Click()
Dim fname As String
fname = Dir("d:\a\*.*", 7)
MkDir "d:\aa\a"
Do
If fname = "" Then Exit Do
FileCopy "d:\a\" & fname, "d:\aa\a\" & fname
fname = Dir()
Loop
End Sub2.复制文件夹的API函数:SHFileOperation。他可以很方便的实现文件夹的复制，但要配合一个文件类来实现，还是以例子来说明吧:在D盘根目录下有一个a文件夹,里边有很多文件，现在把它复制到"D:\bb"中去,程序实现如下: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 'api函数SHFileOperation 的声明
'wFunc 常数
'FO_COPY 把 pFrom 文件拷贝到 pTo。
Const FO_COPY = &H2'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'以上皆为SHFileOperation 需要的变量的声明，固定声明格式直接拿来使用
Private Sub Command2_Click()
Dim SHFileOp As SHFILEOPSTRUCT
SHFileOp.wFunc = FO_COPY
SHFileOp.pFrom = "d:\a"
SHFileOp.pTo = "d:\bb"
SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR
Call SHFileOperation(SHFileOp)
End Sub3.FSO方法实现文件夹的复制，它的使用与FileCopy类似，但还不一样，它只能把一个文件夹里边的文件完全复制到目标文件夹中，但是不能连同此文件夹一块复制进去，因此用FSO实现复制也需要两步，(1)先在目标文件夹中创建一个与复制的文件夹同名的文件夹，然后把文件复制进去。现用例子来说明：在D盘根目录下有一个a文件夹,里边有很多文件，现在把它复制到"D:\cc"中去,程序实现如下:"工程"--"引用"--"Microsoft Scripting Runtime"Private Sub Command3_Click()
Dim fso As New FileSystemObject
Dim fldr As Folder
MkDir "D:/cc/a"
fso.CopyFolder "D:/a", "D:/cc/a", True
End Sub好了三种实现方法都能做到复制文件夹，另外再给你提供一种方法，就是用dos命令，利用vb里边的函数shell来调用cmd.exe执行dos命令，有时候shell也是很不错的选择。具体例子如下：Private Sub Command4_Click()Shell "cmd.exe /c x " + Chr(34) + "D:\dd D:\a /q /e" + Chr(34)
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怎样复制文件夹（包括里面的文件）
给你一个列子
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 如何将文件夹/文件复制或者剪切入剪切板，如果从剪贴板粘贴到指定地方
将鼠标放到文件夹上，右击鼠标，点“复制”或“剪切”，将鼠标移动到你想要将文件放到的地方，再点鼠标右键，点“粘贴”即可。
也可用命令：鼠标选中某文答唤枝件，点CTRL+C复制清敏文件，再移到指定地方，再点CTRL+V，粘链闭贴。
希望可以帮到你。