将具有特定扩展名的文件移动到vb.net中的相关文件夹

我使用下面的子过程将特定的文件分类到特定的文件夹中，但我认为应该有更多的逻辑方法来完成，而不是使用那么多if-elseif结构。我不知道这样做是真的

Dim DirInfo As New DirectoryInfo(strPath & "\" & My.Settings.txt_main_db)
                    For Each SubFile As FileInfo In DirInfo.GetFiles
                        If Path.GetExtension(SubFile.Name) = ".spck" Or Path.GetExtension(SubFile.Name) = ".buspck" Then
                            Dim subPathSpck = strPath & "\" & My.Settings.txt_main_db & "\" & My.Settings.txt_mbs_db_substructure
                            Directory.CreateDirectory(subPathSpck)
                            SubFile.MoveTo(subPathSpck & "\" & SubFile.Name)
                        ElseIf Path.GetExtension(SubFile.Name) = ".fbi" Then
                            Dim subPathFBI = strPath & "\" & My.Settings.txt_main_db & "\" & My.Settings.txt_elastic_body
                            Directory.CreateDirectory(subPathFBI)
                            SubFile.MoveTo(subPathFBI & "\" & SubFile.Name)
                        ElseIf Path.GetExtension(SubFile.Name) = ".stl" _
                            Or Path.GetExtension(SubFile.Name) = ".obj" _
                            Or Path.GetExtension(SubFile.Name) = ".igs" _
                            Or Path.GetExtension(SubFile.Name) = ".slp" _
                            Or Path.GetExtension(SubFile.Name) = ".obj" Then
                            Dim subPathCAD = strPath & "\" & My.Settings.txt_main_db & "\" & My.Settings.txt_cad_geometry
                            Directory.CreateDirectory(subPathCAD)
                            SubFile.MoveTo(subPathCAD & "\" & SubFile.Name)
                        ElseIf Path.GetExtension(SubFile.Name) = ".if2" _
                            Or Path.GetExtension(SubFile.Name) = ".afs" _
                            Or Path.GetExtension(SubFile.Name) = ".tre" Then
                            Dim subPathIF2 = strPath & "\" & My.Settings.txt_main_db & "\" & My.Settings.txt_input_functions
                            Directory.CreateDirectory(subPathIF2)
                            SubFile.MoveTo(subPathIF2 & "\" & SubFile.Name)
                        ElseIf Path.GetExtension(SubFile.Name) = ".subvar" Then
                            Dim subPathSubVar = strPath & "\" & My.Settings.txt_main_db & "\" & My.Settings.txt_mbs_db_ip
                            Directory.CreateDirectory(subPathSubVar)
                            SubFile.MoveTo(subPathSubVar & "\" & SubFile.Name)
                        ElseIf Path.GetExtension(SubFile.Name) = ".tpf" _
                            Or Path.GetExtension(SubFile.Name) = ".tir" Then
                            Dim subPathDelft = strPath & "\" & My.Settings.txt_main_db & "\" & My.Settings.txt_tyre_delft_swift
                            Directory.CreateDirectory(subPathDelft)
                            SubFile.MoveTo(subPathDelft & "\" & SubFile.Name)
                        ElseIf Path.GetExtension(SubFile.Name) = ".rdf" Then
                            Dim subPathRoad = strPath & "\" & My.Settings.txt_main_db & "\" & My.Settings.txt_mbs_db_road
                            Directory.CreateDirectory(subPathRoad)
                            SubFile.MoveTo(subPathRoad & "\" & SubFile.Name)
                        Else
                            Dim subPathExt = strPath & "\" & My.Settings.txt_main_db & "\" & My.Settings.txt_mbs_db_extfile
                            Directory.CreateDirectory(subPathExt)
                            SubFile.MoveTo(subPathExt & "\" & SubFile.Name)
                        End If
                    Next

---

如果……如果……其他……有什么不对的。。（甚至是一个Select Case），但是如果您打算删除一个冗长的选择，您可以使用一个字典，其中键是文件扩展名，值是处理该特定键扩展名的函数。
该键用于查找配置变量和执行文件移动的函数

这可以通过这种方式来实现，我让您来判断这是否更清楚，是否符合您当前的代码：

' some test values
Dim strPath As String = "e:\temp"
Dim txt_main_db As String = "root"
Dim txt_mbs_db_substructure = "spkBackup"
Dim txt_elastic_body = "fbiBackup"

' the dictionary
Dim moveHandler As Dictionary(Of String, Action(Of FileInfo)) 

' initialization somewhere in your code...
Sub Main
    ' Set the handler for each extensions but you could have the same handler for many extensions
    moveHandler.Add(".spck", Function(f As FileInfo) HandleSpck(f))
    moveHandler.Add(".buspck", Function(f As FileInfo) HandleSpck(f))
    moveHandler.Add(".fbi", Function(f As FileInfo) HandleFbi(f))
    ......
    moveHandler.Add("others", Function(f As FileInfo) HandleOthers(f))
End Sub

' handler to move a file with .spck or .buspck  extension 
Function HandleSpck(SubFile As FileInfo)
    Dim subPathSpck = Path.Combine(strPath,txt_main_db, txt_mbs_db_substructure)
    Directory.CreateDirectory(subPathSpck)
    SubFile.MoveTo(Path.Combine(subPathSpck,SubFile.Name))
End Function

' handler to move a file with .fbi  extension 
Function HandleFbi(SubFile As FileInfo)
    Dim subPathSpck = Path.Combine(strPath, txt_main_db, txt_elastic_body )
    Directory.CreateDirectory(subPathSpck)
    SubFile.MoveTo(Path.Combine(subPathSpck, SubFile.Name))
End Function

' Other handlers for other extensions
.....

最后，您可以使用非常短的循环调用处理程序

Dim source = Path.Combine(strPath, txt_main_db)

Dim DirInfo As New DirectoryInfo(source)
For Each SubFile As FileInfo In DirInfo.GetFiles
    If moveHandler.ContainsKey(SubFile.Extension) Then
        moveHandler(SubFile.Extension).Invoke(SubFile)
    Else
        moveHandler("others").Invoke(SubFile)
    End If
Next

但是，等等……现在使用此代码可以很容易地标记模式。您总是执行相同的代码。唯一改变的是目的地。现在，如果我们有一个传递目标文件夹和FileInfo变量的处理程序，该怎么办？我们只能有一个处理程序

Function HandleFileMove(destFolder as String, SubFile As FileInfo)
    Dim subFolder = Path.Combine(strPath,txt_main_db, destFolder)
    Directory.CreateDirectory(subFolder)
    SubFile.MoveTo(Path.Combine(subFolder,SubFile.Name))
End Function

我们必须调整字典，使其始终调用相同的处理程序，但提供创建子文件夹所需的新参数

moveHandler.Add(".spck", Function(f As FileInfo) HandleFileMove(txt_mbs_db_substructure, f))
moveHandler.Add(".fbi", Function(f As FileInfo) HandleFileMove(txt_elastic_body, f))
.....

---

当然，只有在公共处理程序中的唯一任务是复制预定义子文件夹中的文件时，这才是好的。如果您需要为特定扩展执行任何其他任务，那么最好为每个扩展使用单独的处理程序。

首先，我将在循环顶部解析

Path.GetExtension（SubFile.Name）

一次。也可使用OrElse进行短路。