Private Sub Del()
      Dim myDir$, reTempDir$
      On Error GoTo errBad
      If curFile <> "" Then     '判断文件是否为空文件
          Kill curFile
          File1.Refresh     '文件列表更新
      Else
          If curDirec <> "" Then
              reTempDir = curDirec: myDir$ = curDirec
              lenfile = Len(reTempDir)
             '获取上级目录
              Do While lenfile <> 1
                  If Right$(reTempDir, 1) = "\" Then
                      reTempDir = Left$(reTempDir, lenfile - 1)
                      '测试是否到了根目录
                      If Right$(reTempDir, 1) = ":" Then
                          reTempDir = reTempDir & "\"
                      End If
                      Exit Do
                  End If
                  reTempDir = Left$(reTempDir, lenfile - 1)
                  lenfile = Len(reTempDir)
              Loop
              If lenfile = 1 Then Exit Sub
              Dir1.Path = reTempDir
              ChDir Dir1.Path       '返回上级目录
              RmDir myDir$        '需在上级目录进行删除操作
              Dir1.Refresh       '目录列表更新
          End If
      End If
      Exit Sub
errBad:
      If (err = 53) Then
          MsgBox "文件不存在", vbOKOnly
      Else
          If (err = 75) Then
              MsgBox "目录中还存在文件", vbOKOnly
          Else
              msg$ = "发现错误，错误号=" + Str$(err)
              MsgBox msg$, vbOKOnly
          End If
      End If
End Sub
这段是什么意思...求详细的...谢了