- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 怎么批量修改文件名 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=103731)
-- 发布时间：2017/7/15 16:21:00
-- 怎么批量修改文件名
怎么批量修改“文件名”将文件名的指定字符前加一个特殊符号？
[此贴子已经被作者于2017/7/15 16:34:42编辑过]
-- 发布时间：2017/7/15 16:35:00
--
http://www.foxtable.com/webhelp/scr/0221.htm
建议你花一个星期的时间，好好看看帮助，重点学学编程基础
-- 发布时间：2017/7/15 17:07:00
--
如何在指定字符前插入一个符号呀？不是在指定位置上加入符号，因为所加入的符号的位置不是固定的
-- 发布时间：2017/7/15 17:19:00
--
http://www.foxtable.com/webhelp/scr/0236.htm
-- 发布时间：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
-- 发布时间：2017/7/16 12:11: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 = name.IndexOf("est")
If weiz >= 0 Then
weiz = weiz
name = name.Insert(weiz ,"-")
FileSys.RenameFile(file, name)
End If
Next
End If
[此贴子已经被作者于2017/7/16 12:14:00编辑过]