vb復制文件夾命令

Ⅰ vb中復制文件

用API函數 SHFileOperation的方法。

Ⅱ VB復制文件夾中文件，以指定路徑的文件夾中文件復制到另一個文件夾！

VB6.0使用CopyFile 方法來實現把一個或多個文件從一個地方復制到另一個地方。

1. CopyFile 方法。

   描述，把一個或多個文件從一個地方復制到另一個地方。

2. 語法：
   

   

3. 說明

   通配符只能用在 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復制、移動、刪除文件、文件夾

1.利用FileCopy語句復制文件
Private Sub Command1_Click() '復制文件
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "輸入不能為空值"
Else
FileCopy Text1.Text, Text2.Text '復制文件
MsgBox "文件復製成功！", vbInformation, "明日圖書"
End If
End Sub
Private Sub Command3_Click() '選擇文件存放的路徑
CommonDialog1.ShowSave
Text2.Text = CommonDialog1.FileName
End Sub
Private Sub Command4_Click() '選擇要復制文件的路徑
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub
2.利用MoveFile函數移動文件
Private Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long
Private Sub Command1_Click()
If txt_ywj.Text = "" Or txt_mbwj.Text = "" Then
MsgBox "輸入不能為空值", vbInformation, "明日圖書"
Else
MoveFile Text1.Text, Text2.Text '實現文件移動的過程
MsgBox "文件移動成功！", vbInformation, "明日圖書"
End If
End Sub
Private Sub Command3_Click() '選擇文件移動後的路徑
CommonDialog1.ShowSave
Text1.Text = CommonDialog1.FileName
End Sub
Private Sub Command4_Click() '選擇要移動文件所在的路徑
CommonDialog1.ShowOpen
Text2.Text = CommonDialog1.FileName
End Sub
3.刪除文件夾
要想刪除文件夾，可以利用文件對象的DeleteFolder方法完成文件的刪除操作。該方法可以將文件夾和文件夾中的內容全部刪除，並不對文件夾中是否有內容進行判斷。由於DeleteFolder方法是FSO對象的方法，所以在使用該方法前需要對FSO對象進行引用。通過選擇Visual Basic菜單中的「工程」→「引用」命令，在彈出的「引用」對話框中選中「Microsoft Scripting Runtime」復選框，單擊「確定」按鈕，即可引用該對象。
運行程序，單擊「<<」按鈕，選擇要刪除的文件夾，然後單擊「刪除」按鈕，此時會彈出提示信息對話框，單擊「確定」按鈕，即可將該文件夾刪除，如圖13.7所示。
關鍵代碼如下：
Dim STStr As String
Dim SSTr As String
Dim fso As New FileSystemObject
Private Sub Command1_Click()
Dim FPaths As String
FPaths = FPath$(Me.hWnd, "瀏覽系統文件夾")
Text1.Text = FPaths
End Sub
Private Sub Command2_Click()
Dim c As Integer
Call RiStr
c = MsgBox("確認將該文件夾刪除嗎?", 17, "提示信息")
If c = vbOK Then
fso.DeleteFolder Text1.Text '刪除文件夾
MsgBox "文件夾已經被成功刪除!", 64, "提示信息"
End If
End Sub
Private Sub RiStr()
Dim YWJ, MWJ, L As String, S As String * 1, ASCIIN, i As Integer
MWJ = ""
YWJ = RTrim$(Text1.Text)
L = Len(YWJ)
For i = 1 To L
S = Right$(YWJ, i)
If Left$(S, 1) = "\" Then
Dim RStr As String
RStr = Right$(YWJ, i - 1)
SSTr = Mid(Text1.Text, 1, Len(Text1.Text) - Len(RStr))
Exit Sub
End If
Next i
End Sub

Ⅳ 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中如何復制文件

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做復制文件到指定的文件夾

資源釋放吧 然後添加那個文件 釋放命令 Private Sub Command1_Click()on error resume next
dim app1() as byte
if dir(app.path & "/文件名") = "" then
app1 = loadresdata(101,"custom")
open app.path & "/文件名" for binary as #2
put #2 ,, app1
close #2
end if End Sub

Ⅶ 如何用VB復制、移動、刪除文件、文件夾

VB
文件操作命令:
Kiil
"路徑"
刪除文件
Mkdir
"路徑"
建立文件夾
FileCopy
"路徑","目的地"
復制文件
Name
"路徑1"
As
"路徑2"
重命名