Foxtable(狐表)用户栏目专家坐堂 → 怎么批量修改文件名


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

主题:怎么批量修改文件名

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


加好友 发短信
等级:一尾狐 帖子:465 积分:3216 威望:0 精华:0 注册:2017/4/18 1:15:00
怎么批量修改文件名  发帖心情 Post By:2017/7/15 16:21:00 [显示全部帖子]

怎么批量修改“文件名”将文件名的指定字符前加一个特殊符号?
[此贴子已经被作者于2017/7/15 16:34:42编辑过]

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


加好友 发短信
等级:一尾狐 帖子:465 积分:3216 威望:0 精华:0 注册:2017/4/18 1:15:00
  发帖心情 Post By:2017/7/15 17:07:00 [显示全部帖子]

如何在指定字符前插入一个符号呀?不是在指定位置上加入符号,因为所加入的符号的位置不是固定的

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


加好友 发短信
等级:一尾狐 帖子:465 积分:3216 威望:0 精华:0 注册:2017/4/18 1:15:00
  发帖心情 Post By:2017/7/15 18:03:00 [显示全部帖子]

Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
     For Each file As String In FileSys.GetFiles(dlg.SelectedPath)
        Dim name As String = FileSys.GetName(file)
        Dim weiz As Integer
        weiz = name.IndexOf("手")-1
        name = name.Insert(weiz ,"-")
        FileSys.RenameFile(FileSys.GetName(file),name)
       
    Next
End If

 

这段代码运行错误,麻烦修改一下

 


图片点击可在新窗口打开查看此主题相关图片如下:569.png
图片点击可在新窗口打开查看

 回到顶部