Foxtable(狐表)用户栏目专家坐堂 → [求助]修改文件夹名称


  共有1585人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/4 10:26:00 [显示全部帖子]

Dim dr As String = Tables("文件夹").Current("路径") & "\" & Tables("文件夹").Current("界")& "\" & Tables("文件夹").Current("门")
msgbox(dr)
Dim nstr As String = "修改名"
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()

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/4 11:52:00 [显示全部帖子]

以下是引用湛江智在2017/8/4 10:37:00的发言:

修改名 ,可以直接在单元格里修改嘛? 

 

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/4 11:55:00 [显示全部帖子]

以下是引用湛江智在2017/8/4 10:42:00的发言:

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

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

[此贴子已经被作者于2017/8/4 10:43:10编辑过]

 

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

 


 回到顶部