替换文件和文件夹名称中的单词

Question

我想找到一种替换另一个单词的方法，但这个单词将在文件或文件夹名称中。 编辑 按照@the_lotus的建议，我设法编写了这段代码：

listf = Directory.GetFiles(paths, "*", SearchOption.AllDirectories)

For Each file As String In listf
    Dim name
    name = Path.GetFileName(file)
    If name.contains("server1") Then
        My.Computer.FileSystem.RenameFile(file, name.replace("server1", "abcd"))
    End If
Next
listd = Directory.GetDirectories(paths, "*", SearchOption.AllDirectories)
For Each nome As String In listd
    Dim name
    name = New DirectoryInfo(nome).Name
    If name.contains("server1") Then
        My.Computer.FileSystem.RenameDirectory(nome, name.replace("server1", "abcd"))
    End If

Next
MsgBox("done")

在重命名文件没问题，但重命名文件夹时整个路径发生变化，因此当程序尝试重命名其余文件夹时出错 编辑 为了解决路径的问题，我只在字符串中提供了所有这些的路径：＆＃34; / wordthatwasreplacedinthenames /＆＃34;用＆＃34; / wordthat用于旧的/＆＃34;以这种方式改变了所有文件夹与旧单词的新单词，因为我把两个斜杠没有改变仍然要重命名的最后一个文件夹。

Answer 1

为了解决路径的问题，我只在字符串中提供了所有这些的路径：“/ wordthatwasreplacedinthenames /”with“/ wordthat usedtoreplacethe old /”以这种方式改变了所有文件夹中的旧词与新的一个，因为我把两个斜杠没有改变仍然要重命名的最后一个文件夹。