Приведенный ниже код создает несколько папок на основе разных имен файлов и перемещает эти файлы в новые папки. Например, файлы ABC и XYZ перемещаются во вновь созданную папку с именем ABC и XYZ. Я хочу расширить код, чтобы позволить немного другим именам файлов помещаться в общую папку. Например, я хочу, чтобы файлы ABC_rock, ABC_soil и ABC_water были помещены в папку с именем ABC Still, а файлы XYZ_rock, XYZ_soil и XYZ_water — в папку с именем XYZ. Я не хочу создавать отдельную папку для ABC_rock, ABC_soil и ABC_water. Любые предложения приветствуются. Спасибо за помощь.
Dim strOutputLocation As String = "C:\Temp"
Dim rootPath As String = strOutputLocation
For Each filepath As String In IO.Directory.GetFiles(rootPath)
Dim folderName As String = IO.Path.GetFileNameWithoutExtension(filepath)
Dim folderPath As String = IO.Path.Combine(rootPath, folderName)
If Not IO.Directory.Exists(folderPath) Then
IO.Directory.CreateDirectory(folderPath)
End If
Dim fileName2 As String = IO.Path.GetFileName(filepath)
Dim newFilePath As String = IO.Path.Combine(folderPath, fileName2)
File.Move(filepath, newFilePath)
Next