主题：[求助]修改文件夹名称

修改电脑文件夹名称，求助

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:修改文件夹名称.foxdb

删除该文件夹，广东，的代码怎样写呢？

修改名 ，可以直接在单元格里修改嘛？ 

删除文件夹的代码，不能删除该文件夹，帮忙看看代码怎么修改了

Dim dr As String = Tables("文件夹").Current("路径") & "\" & Tables("文件夹").Current("界")& "\" & Tables("文件夹").Current("门")
If FileSys.DirectoryExists(dr)= False Then
    FileSys.DeleteFile(dr)
End If

DataColChanged事件

If e.DataCol.name = "门" Then
    If e.OldValue <> Nothing Then
        If e.NewValue> "" Then
            Dim dr As String = e.DataRow("路径") & "\" & e.DataRow("界")& "\" & e.OldValue
            Dim nstr As String = e.NewValue
            If FileSys.DirectoryExists(dr)= False Then
                FileSys.CreateDirectory(dr)
            End If
            FileSys.RenameDirectory(dr, nstr)
            Dim Proc As New Process '定义一个新的Process
            Proc.File = FileSys.GetParentPath(dr) & "/" & nstr
            Proc.Start()
        Else
            msgbox("要删除文件?")
        End If
    Else
        Dim dr As String = e.DataRow("路径") & "\" & e.DataRow("界")& "\" & e.NewValue
        If FileSys.DirectoryExists(dr)= False Then
            FileSys.CreateDirectory(dr)
        End If
        Dim Proc As New Process '定义一个新的Process
        Proc.File = dr
        Proc.Start()
    End If
End If

Dim dr As String = Tables("文件夹").Current("路径") & "\" & Tables("文件夹").Current("界")& "\" & Tables("文件夹").Current("门")
If FileSys.DirectoryExists(dr) Then
    FileSys.DeleteDirectory(dr, 2, 2)
End If