導航:首頁 > 文件處理 > vb復制文件夾命令

vb復制文件夾命令

發布時間:2022-10-05 17:53:10

Ⅰ 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"
重命名

閱讀全文

與vb復制文件夾命令相關的資料

熱點內容
程序員用得到數字區嗎 瀏覽:172
python求商 瀏覽:475
ipad能用c語言編譯器嗎 瀏覽:559
軟泥解壓球最新版 瀏覽:996
4萬程序員辭職創業 瀏覽:757
thinkingphp 瀏覽:595
安卓相冊移動文件夾 瀏覽:4
耳朵清潔解壓聲控99的人都睡得著 瀏覽:203
叉車出租網站源碼 瀏覽:872
共享單車的app是什麼 瀏覽:406
不帶gui的伺服器什麼意思 瀏覽:371
金剛經及PDF 瀏覽:100
php中冒號 瀏覽:356
php5432 瀏覽:350
命令在哪使用 瀏覽:170
php獲取網頁元素 瀏覽:706
為什麼需要硬體驅動編譯 瀏覽:883
pm編程怎樣看導柱孔對不對稱 瀏覽:136
農業大學選課找不到伺服器怎麼辦 瀏覽:649
路由配置網關命令 瀏覽:933