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幫助