添加command1 为删除文件夹中所选种的文件添加command2　为删除文件夹Private Sub Command1_Click()Kill File1.Path + "\" + File1.FileName '删除了所选择的文件 File1.Path = Drive1.Drive '删除完后的刷新End SubPrivate Sub Command2_Click()Kill File1.Path + "\" + "*.*" '删除所有文件RmDir Dir1.PathEnd SubPrivate Sub Dir1_Change() File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd Sub以上出了点问题．就是当删除文件夹的时候．如果里面有文件，先将文件删除了再删除文件夹．　但是如果文件夹里没有文件的话．那么这个语句出错→　Kill File1.Path + "\" + "*.*" '删除所有文件改如何用ＩＦ语句来判断.如果文件夹里有文件就将文件删除后再删除文件夹.否则就删除文件夹？　该怎么写？

if dir(File1.Path + "\" + "*.*",7)<>"" then '有文件

还是不行`` 你们没测试过吗?

如果有错就是你的代码错了-_-!!!我没估计错的话就是多了个斜杠"\"

"\" 指定路径 没"\" 就错误路径了``