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表示以隱藏方式運行
加的這些參數都是為了隱蔽性和自動性加的
目標文件夾可以不用先創建，它會自動創建
要記得目標文件夾後面要加\，請參照上面的代碼