主题：关于文件命名

参考

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

http://www.foxtable.com/webhelp/scr/0331.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).split("-")
        If name.length > 1
            If FileSys.FileExists(dlg.SelectedPath & "\ssss-" & name(1))=False Then
                FileSys.RenameFile(file, "ssss-" & name(1))
            End If
        End If
    Next
End If

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)
        If name.contains("张三123QOPS") Then           
            Dim nname = name.replace("QOPS", "UOPE")
            If FileSys.FileExists(dlg.SelectedPath & "\" & nname)=False Then
                FileSys.RenameFile(file, nname)
            End If
        End If
    Next
End If

具体项目发上来测试（图片，以及表数据）

你处理逻辑有问题。文件名不要频繁修改，这样会造成混乱的。

基本做法是这样，用一列，记录对应的匹配的文件名。无论你的表数据如何变，文件名和这一列的数据不变即可。

如果你确实需要把文件夹重新命名，那你可以做一个按钮，间隔一段时间，批量的重命名。

比如你文件有 A、B、C 三个文件，对应表格 1、2、3 行的数据，那么根据匹配规则在表格里面记录 A、B、C 即可。

之后无论你表数据如何变化，都不需要更改文件的名称啊。

不需要记录每一张图片的名称，只需要记录特征即可啊。你也可以理解成这一列，记录你最初的 商户名、身份证 等列的信息，无论你其它列怎么变，记录最初的值，用于找到图片。

汗，你到底有没有理解啊。

增加一列，把你的图片的特征的值保存在这一列里面啊。也就是把最初的 客户姓名+身份证+商户名简称、所属平台简称+子系统 的值存起来啊。也就是通过这一列可以找到你的图片的意思啊。