Ⅰ vb删除文件
3个方法可以实现:
1:
kill 文件 '删除文件
rmdir 文件夹 '删除文件夹
如果想要使用 RmDir 来删除一个含有文件的目录版或文件夹，则权会发生错误。在试图删除目录或文件夹之前，先使用 Kill 语句来删除所有文件。
2:
或者用对象的方法:
Set fs = CreateObject("Scripting.FileSystemObject")
fs.deletefile 删除文件
fs.deletefolder 删除文件夹
3:
用API也可以办到
Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
deletefile 文件名 '强制删除一个文件
Ⅱ VB删除文件夹
引用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即文件夹路径，而且不必先清空文件夹
试一试
Ⅲ vb怎么删除文件夹里面的所有文件
直接调用DOS命令：
shell "cmd /C del /Q e:\aa\*.*" ,vbhide
本语句使用了/Q参数，del命令的其他参数为：
/P 删除每一个文件之前提专示确认。属
/F 强制删除只读文件。
/S 从所有子目录删除指定文件。
/Q 安静模式。删除全局通配符时，不要求确认。
/A 根据属性选择要删除的文件。
用KILL，不能删除文件夹，只能删除文件：
kill "D:\aa\*.*"
2、
d="D:\aa\"
f=dir(d & "*.*")
do while f<>""
kill d & f
f=dir
loop
Ⅳ VB如何删除指定文件夹内的所有文件和子文件
Option Explicit
Private Sub Command1_Click()
Dim strPathName As String
strPathName = ""
strPathName = InputBox("请输入需要删除的文件夹名称∶", "删除文件夹")
If strPathName = "" Then Exit Sub
On Error GoTo ErrorHandle
SetAttr strPathName, vbNormal '此行主要是为了检查文件夹名称的有效性
RecurseTree strPathName
Label1.Caption = "文件夹" & strPathName & "已经删除！"
Exit Sub
ErrorHandle:
MsgBox "无效的文件夹名称:" & strPathName
End Sub
Sub RecurseTree(CurrPath As String)
Dim sFileName As String
Dim newPath As String
Dim sPath As String
Static oldPath As String
sPath = CurrPath & "\"
sFileName = Dir(sPath, 31) '31的含义∶31=vbNormal+vbReadOnly+vbHidden+vbSystem+vbVolume+vbDirectory
Do While sFileName <> ""
If sFileName <> "." And sFileName <> ".." Then
If GetAttr(sPath & sFileName) And vbDirectory Then '如果是目录和文件夹
newPath = sPath & sFileName
RecurseTree newPath
sFileName = Dir(sPath, 31)
Else
SetAttr sPath & sFileName, vbNormal
Kill (sPath & sFileName)
Label1.Caption = sPath & sFileName '显示删除过程
sFileName = Dir
End If
Else
sFileName = Dir
End If
DoEvents
Loop
SetAttr CurrPath, vbNormal
RmDir CurrPath
Label1.Caption = CurrPath
End Sub