Private Sub Command2_Click()
'帮我在这里写一下删除文件夹的代码。比如D;\123456
End Sub
你们下载起看哈最好

If Dir("D:\123456", vbDirectory) <> "" Then
   If Dir("d:\123456\*.*", vbNormal) <> "" Then  ''若文件夹中还有文件
      Kill "d:\123456\*.*"   '先删除子目录中的文件
   End If
   RmDir "D:\123456"
   MsgBox "子目录D:\123456被删除"
else
   MsgBox "啥都没做"
   
End If

[[it] 本帖最后由 flyingcat2008 于 2008-8-1 23:46 编辑 [/it]]