Foxtable(狐表)用户栏目专家坐堂 → 马上大佬看一下批量给文件重命名,为什么有些没被重命名啊?


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

主题:马上大佬看一下批量给文件重命名,为什么有些没被重命名啊?

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


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

直接说你要做什么吧,看不懂你的意思。

 

Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
    Dim files = FileSys.GetFiles(dlg.SelectedPath)
    For Each file As String In files
        Dim name As String = FileSys.GetName(file)
        Dim idx = name.LastIndexOf(".")
        If idx >= 0 Then
            FileSys.RenameFile(file, name.SubString(0, idx))
        End If
    Next
End If


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


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

Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
    Dim files = FileSys.GetFiles(dlg.SelectedPath)
    Dim i As Integer = 1
    For Each file As String In files
        Dim name As String = FileSys.GetName(file)
        Dim idx = name.LastIndexOf(".")
        If idx >= 0 Then
            FileSys.RenameFile(file, i & name.SubString(idx))
        Else
            FileSys.RenameFile(file, i)
        End If
        i += 1
    Next
End If

 


 回到顶部