vb高手进来帮忙看看,thx

来源：百度知道 编辑：UC知道 时间：2024/05/10 10:12:53
Private Sub Command5_Click()
Kill File1.Path + "\" + "*.*"
RmDir Dir1.Path
End Sub
------------------------------------------
为什么点击以后不能删除文件夹呢？实时错误：53

Kill File1.Path + "\" + "*.*" 实时错误：53说明这个文件不存在.
你是不是想删除文件夹里的所有文件再删除文件夹?
如果想文件夹里的所有文件可以这样:
Dim a As String
a = Dir("c:\....\*")
Kill "c:\....\" & a
while a <> ""
Wend
但文件夹里的文件夹删不了.