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


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

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

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


加好友 发短信
等级:幼狐 帖子:165 积分:1686 威望:0 精华:0 注册:2017/3/30 15:55:00
马上大佬看一下批量给文件重命名,为什么有些没被重命名啊?  发帖心情 Post By:2018/12/14 16:00:00 [显示全部帖子]

Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
    
    For i As Integer = 0 To FileSys.GetFiles(dlg.SelectedPath).Count -1
        FileSys.RenameFile(FileSys.GetFiles(dlg.SelectedPath)(i),FileSys.GetFiles(dlg.SelectedPath).Indexof(FileSys.GetFiles(dlg.SelectedPath)(i)) & FileSys.GetFiles(dlg.SelectedPath)(i).SubString(FileSys.GetFiles(dlg.SelectedPath)(i).LastIndexOf(".")))
       
        Output.Show(FileSys.GetFiles(dlg.SelectedPath)(i) & FileSys.GetFiles(dlg.SelectedPath).Indexof(FileSys.GetFiles(dlg.SelectedPath)(i))  &  FileSys.GetFiles(dlg.SelectedPath)(i).SubString(FileSys.GetFiles(dlg.SelectedPath)(i).LastIndexOf(".")))
       
       
    Next
   
End If


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


加好友 发短信
等级:幼狐 帖子:165 积分:1686 威望:0 精华:0 注册:2017/3/30 15:55:00
  发帖心情 Post By:2018/12/14 16:39:00 [显示全部帖子]

是这样的我有很多文件需要批量重命名(在同一个文件夹下),在用户选择文件下后,遍历该文件夹下的所有文件,将文件一 一重命名,命名要求时,返回当前文件名在集合中的位置再拼接上源文件名的后缀名作为新文件名

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


加好友 发短信
等级:幼狐 帖子:165 积分:1686 威望:0 精华:0 注册:2017/3/30 15:55:00
  发帖心情 Post By:2018/12/15 10:32:00 [显示全部帖子]

谢谢

 回到顶部