vb怎么删除文件夹里面的所有文件

Question

如题所述

Answer 1

直接调用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

Answer 2

你用kill函数先删除整个文件夹，然后再用MkDir创建文件夹

Answer 3

Private Sub Command1_Click()
Dim TxtDir() As String
ReDim TxtDir(10000)
tS = Dir("C:\12\*.*", 0 Or 1 Or 2 Or 3 Or 4 Or 5 Or 6 Or 7 Or 8 Or 9 Or 10 Or 11 Or 12 Or 13 Or 14 Or 15)
i = 0
Do While tS <> ""
TxtDir(i) = tS
i = i + 1
tS = Dir
Loop
ReDim Preserve TxtDir(i - 1)
For Each TxtFiles In TxtDir
SetAttr "c:\12\" & TxtFiles, vbNormal
Next TxtFiles
Kill "c:\12\*.*"
End Sub

Answer 4

shell "cmd /c del e:\temp\*.*"

Answer 5

Ctrl+a 全选 再按Delete