1 删除文件
Kill 语句示例
本示例使用 Kill 语句将磁盘中的文件删除。
'
假设TESTFILE
是一数据文件。Kill "TestFile" '
删除。'
将当前目录下所有*.TXT
文件全部删除。Kill "*.TXT"
kill "这里显示你要删除的文件"
呵呵,简单吧。。。
2 删除文件夹中的所有文件
MyPath = target & "/" ' 指定路径。MyPath 是要删除的文件夹
myname = Dir(MyPath, vbDirectory) ' 找寻第一项。
Do While myname <> ""
myname = Dir
If myname = "." Or myname = ".." Or myname = "" Then
Else
Kill MyPath & myname ‘myname 是该文件夹中的文件
End If
txtSql.Text = txtSql.Text & myname
Loop
试试吧,呵呵。。。。