0

たとえば、次のディレクトリがあります。

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

次のファイルもあります。

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

私の質問は、ディレクトリやfile100.txtディレクトリなどにコピーする方法を見つけようとしているときに発生します。folder100file101.txtfolder101

各テキストファイルを関連するフォルダにコピーするだけの簡単なコードを簡単に書くことができますが、これを適用したいディレクトリとファイルがたくさんあるので、このタスクをループする方法が必要です。これに頭を巻いてください。

どんな助けでも大歓迎です。

4

2 に答える 2

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
于 2012-08-29T17:00:35.577 に答える
0 
    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
于 2012-08-29T17:23:04.983 に答える