VB.NETにおけるファイルのコピーの方法

Question

現在、VB.NETを使用して、

設定ファイル(.config)を読み込み、指定されたフォルダ内の全てのファイルを指定されたコピー先フォルダへコピーする

という簡単なアプリケーションを勉強として作成しています。
VB.NET自体経験が浅く、ネットにて調べながら作業を行っているのですが
不明点にあたり、どうしたものかわからなくなってしまったので質問を投稿させていただきました。

'メインクラス
Public Class Main
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim strFile As String
        Dim コピー先フォルダ As String = Configuration.ConfigurationManager.AppSettings("Folder00")
        Dim 経理課フォルダ As String = Configuration.ConfigurationManager.AppSettings("Folder01")

        For Each strFile In System.IO.Directory.GetFiles(経理課フォルダ, "*.*")
            FileCopy(strFile, コピー先フォルダ)
        Next

    End Sub
End Class

コンフィグファイル(.config)
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
    <system.diagnostics>
        <sources>
            <!-- このセクションでは、My.Application.Log のログ構成を定義します。 -->
            <source name="DefaultSource" switchName="DefaultSwitch">
                <listeners>
                    <add name="FileLog"/>
                    <!-- アプリケーション イベント ログに書き込むには、以下のセクションのコメントを解除します -->
                    <!--<add name="EventLog"/>-->
                </listeners>
            </source>
        </sources>
        <switches>
            <add name="DefaultSwitch" value="Information" />
        </switches>
        <sharedListeners>
            <add name="FileLog"
                 type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" 
                 initializeData="FileLogWriter"/>
            <!-- アプリケーション イベント ログに書き込むには、以下のセクションのコメントを解除して、APPLICATION_NAME をアプリケーション名に置き換えます -->
            <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
        </sharedListeners>
    </system.diagnostics>
    <appSettings>
      <add key="Folder00" value="C:\Users\XXXXX\Desktop\コピー先フォルダ" />
      <add key="Folder01" value="C:\Users\XXXXX\Desktop\Sample\経理課" />
      <add key="Folder02" value="C:\Users\XXXXX\Desktop\Sample\庶務課" />
      <add key="Folder03" value="C:\Users\XXXXX\Desktop\Sample\総務課" />
    </appSettings>
</configuration>

設定ファイルに記述されたフォルダ指定が設定ファイルから読み込めること、ファイルが一覧で取得できること(MsgBox使用)までは正しく動作していることが確認できました。

あとはフォルダ内のファイル数分、指定されたフォルダへファイルをコピーさせるだけなのですが、方法がイマイチわかりません...

FileCopy(strFile, コピー先フォルダ)

これでコピーできるものと思い込んでいたのですが、コピー先にはフォルダでなくファイルを指定しなければならない(?)という旨のエラーが出てしまい、思い通りの結果が得られないでいます。
ネットで調べると

FileCopy("C:\test\1.txt", "C:\test\2.txt")

と書いてあるのですが、FileCopyでは私の想定している動作は行えないのでしょうか。
長文・乱文申し訳ございませんが、解決方法をご存知の方がいらっしゃいましたらご教授頂けると幸いです。

Answer 1

コピーするときにフルパスを与えるのはしょうがないのですが・・・
DirectoryInfo と FileInfo を使って、以下のようなコードではどうでしょうか。

Dim コピー先フォルダ As System.IO.DirectoryInfo = New IO.DirectoryInfo(Configuration.ConfigurationManager.AppSettings("Folder00"))
Dim 経理課フォルダ As System.IO.DirectoryInfo = New IO.DirectoryInfo(Configuration.ConfigurationManager.AppSettings("Folder01"))

For Each file As System.IO.FileInfo In 経理課フォルダ.EnumerateFiles()
    file.CopyTo(コピー先フォルダ.FullName & System.IO.Path.DirectorySeparatorChar & file.Name)
Next

簡略化してますが、ファイルが存在しているか、ディレクトリが存在しているか、などのチェックは必要と思います。

Answer 2

FileCopyを使用されるのであれば

FileCopy("コピー元フォルダ＋コピー元ファイル名", "コピー先フォルダ＋コピー元ファイル名”）

としてみてはどうでしょうか。

フォルダ指定のみでコピーがしたい場合はMy.Computer.FileSystem.CopyFile メソッドを使うとよいと思います。

Comments

[Alice0225]

ご回答ありがとうございます。
For Each以下を

For Each strFile In System.IO.Directory.GetFiles(経理課フォルダ, "*.*")
Dim a As Integer = (InStrRev(strFile, "\"))
Dim strName = strFile.Substring(a)
FileCopy(strFile, コピー先フォルダ & "\" & strName)
Next
とすることで目的の動作は実現したのですが、イマイチスマートな書き方で無いと思うのですが改良するとすればどのような書き方が考えられますでしょうか…。