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

怎么批量修改“文件名”将文件名的指定字符前加一个特殊符号？

http://www.foxtable.com/webhelp/scr/0221.htm

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

http://www.foxtable.com/webhelp/scr/0236.htm

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

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