vb或VC删除文件

vb,用DeleteFolder 方法,下面是用法介搭乱消绍

描述

删除一个指定的文件夹和它的内容。

语法

object.DeleteFolder folderspec[, force]

DeleteFolder 方法语法有如下几部分：

部分 描述

object 必需的。始终是一个 FileSystemObject 的名字。

folderspec 必需的。要删除的文件夹的名字。 Folderspec 可以在最后的路径部件中包含通配符。

force 可选的。Boolean 值，如果要删除具有只读属性设置的文件夹，其值为 True，如果值为 False （缺省），则不能删除具有只读属性设置的文件夹。

说明

DeleteFolder方法对文件夹中有无内容不做区别。不管指定的文件夹中是否有内容，它都知知被删除。

如果没有发现陪段相匹配的文件夹，则发生一个错误。DeleteFolder 方法停止在它遇到的第一个错误上，不要尝试回卷或撤消错误发生前所做的任何改变。

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菜单中的“工程”→“引用”命令，在d出的“引用”对话框中选中“Microsoft Scripting Runtime”复选框，单击“确定”按钮，即可引用该对象。

运行程序，单击“<<”按钮，选择要删除的文件夹，然后单击“删除”按钮，此时会d出提示信息对话框，单击“确定”按钮，即可将该文件夹删除，如图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

引用FSO（Microsoft Scripting Runtime），然后写老仔出

Dim FSO As New FileSystemObject

FSO.DeleteFolder ThePath 'ThePath即文件侍清汪夹路径，而且不必先清空文件夹

或正丛：（不必引用FSO）

Dim FSO As Object

Set FSO = CreateObject("Scripting.FileSystemObject")

FSO.DeleteFolder ThePath 'ThePath即文件夹路径，而且不必先清空文件夹

试一试

---