主题：关于文件命名

此主题相关图片如下：微信截图_20181224224442.png

判断是否已经有此名称的文件：http://www.foxtable.com/webhelp/scr/0337.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

如果要修改指定文件夹下的某些符合条件的文件呢？比如 C:\照片  下 文件文件有 张三123hkrt-照片1 、张三123hkrt-照片2   张三123hkrt-照片3、 李三123hkrt-照片1、 李三123hkrt-照片2 、李三123hkrt-照片3   张三123QOPS-照片1、 张三123QOPS-照片2  、张三123QOPS-照片3、 李三123QOPS-照片1   如果我想将文件名里含有 “张三123QOPS”的所有文件名，将其名称“QOPS”修改成“UOPE” 也就是将张三123QOPS-照片1、 张三123QOPS-照片2  、张三123QOPS-照片3  一次性修改成 张三123UOPE-照片1、 张三123UOPE-照片2  、张三123UOPE-照片3

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

不用选择路径对话框，直接给一个固定路径怎么做 点击修改按钮直接修改固定路径文件夹下的文件

Dim path = "c:\"
For Each File As String In FileSys.GetFiles(path)
    Dim name As String = FileSys.GetName(file)
    If name.contains("张三123QOPS") Then
        Dim nname = name.replace("QOPS", "UOPE")
        If FileSys.FileExists(path & nname)=False Then
            FileSys.RenameFile(file, nname)
        End If
    End If
Next