最近在学VB，想一个简单的软件，请高手指点（内容）

来源：百度知道 编辑：UC知道 时间：2024/05/30 11:24:27
想做一个软件
很简单，只用一个Command1 窗口，点一下删除当前文件夹所有文件
比如我E盘里有一个文件夹，叫“A” 我把这个软件放在“A”文件夹里，运行后点“Command1”然后把A文件夹的所有文件都删除掉！
请问有没有高手能给下代码的？

首先说明：A 文件夹下的所有文件也包括本软件自身,自己不能删除自己！

一定要把生成的exe放到A文件夹下再执行，否则后果自负

Option Explicit
Private Sub Command1_Click()
Dim pathstr, filename As String
pathstr = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
filename = Dir(pathstr & "*.*")
If MsgBox("真的开始删除文件吗？", 16 + vbYesNo, "提醒") = vbNo Then Exit Sub
Do While filename <> ""
If filename = "工程1.exe" Then GoTo skip '跳过自己，因为若试图删除自己会出错。这里的“工程1.exe” 要改成你生成exe文件时的文件名和扩展名
Kill pathstr & filename
skip:
filename = Dir()
Loop
MsgBox "文件全部删除"
End Sub

kill app.path可以，filename不行