Question

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

Answer 1

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

Answer 2

有两种方法可以实现，第一使用API函数代码如下： Option Explicit
'声明移动文件的API函数
Private Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long
Private Sub Command1_Click() Dim str1 As String '存放原始路径 Dim str2 As String '要复制的路径
str1 = "c:\123\"
str2 = "c:\456\123.exe"
str1 = str1 + "123.exe"
'倘若原始文件不存在 If Dir(str1) = "" Then
MsgBox "原始文件未找到!", vbOKOnly + vbExclamation Exit Sub End If
'移动文件
MoveFile str1, str2
MsgBox "文件移动成功!", vbOKOnly + vbInformation
End Sub
首先你要先在c盘下面建立123和456这两个文件。
＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＝
第二种方法，使用VB自身的函数实现,代码稍有变动，具体如下： Option Explicit
Private Sub Command1_Click() Dim str1 As String

'存放原始路径 Dim str2 As String '要复制的路径
str1 = "c:\123\"
str2 = "c:\456\123.exe"
str1 = str1 + "123.exe"
'倘若原始文件不存在 If Dir(str1) = "" Then
MsgBox "原始文件未找到!", vbOKOnly + vbExclamation Exit Sub End If
FileCopy str1, str2 'FileCopy是复制文件的函数 Kill str1 '复制好了，删除原始文件！
MsgBox "文件移动成功!", vbOKOnly + vbInformation End Sub

Answer 3

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

Answer 4

VB 文件操作命令:

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

Answer 5

用命令代码