vb.net - 如何根据 VB.NET 中的文件名将文件复制到文件夹？

Question

例如，我有以下目录：

C:\test\folder100
C:\test\folder101
C:\test\folder102

我还有以下文件：

C:\test\file100.txt
C:\test\file101.txt
C:\test\file102.txt

当我试图找出一种复制file100.txt到 directory folder100、file101.txtto directoryfolder101等的方法时，我的问题就来了。

我可以轻松编写一个简单的代码来将每个文本文件复制到其相关文件夹，但是由于我有很多目录和文件要应用它，所以必须有一种方法来循环这个任务，我就是不能把我的头绕在这上面。

任何帮助表示赞赏。

Answer 1

这些方面的内容可能会有所帮助：

Private Function GetFolderPath(ByVal filePath As String) As String
    Dim fileName As String = Path.GetFileNameWithoutExtension(filePath)
    Dim folderName As String = fileName.Substring("file".Length)
    Return Path.Combine("C:\test", folderName)
End Function

Answer 2

    Dim mydir As New DirectoryInfo("c:\Mydir\")
    For Each myfile As FileInfo In mydir.GetFiles
        Dim newpath As String = myfile.FullName.Substring(0, myfile.Name.Length - myfile.Extension.Length)
        If New DirectoryInfo(newpath).Exists Then
            myfile.CopyTo(newpath)
        Else
            Directory.CreateDirectory(newpath)
            myfile.CopyTo(newpath)
        End If
    Next