如何用VB复制、移动、删除文件、文件夹？

1.VB利用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.VB利用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.VB删除文件夹

要想删除文件夹，可以利用文件对象的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

用命令代码

Shell "cmd.exe /c copy a.exe c:\", vbHide
copy 是复制,move 是移动,del是删除文件,rd是删除文件夹,通过shell调用cmd来完成

VB 文件操作命令:

Kiil "路径"  删除文件
Mkdir "路径" 建立文件夹
FileCopy "路径","目的地" 复制文件
Name "路径1" As "路径2" 重命名

ASP FSO文件操作函数代码（复制文件、重命名文件、删除文件、替换字符串） php文件操作类(建立，写入，删除，修改，复制，移动，创建目录) Python文件读写等操作 asp.net c# 文件 复制 移动 删除方法