テキストファイルをあるフォルダから別のフォルダに自動コピーするプログラムを作成したい。vb.netでWindowsフォームで作成することは可能ですか?そうでない場合は、コンソールアプリではどうですか?検索しようとしましたが、両方の答えが見つかりませんでした。私がこれに不慣れである私を助けてください。c:folder1 \ test1.textに保存されているすべてのテキストファイルをc:folder2 \ test1.textにコピーしてから、folder1に配置されているすべてのテキストファイルをtest2.text、test3.textにコピーしたいと思います。folder2にコピーしたい。
今私はこのコードしか持っていません:それはファイル名test.txtを持つ1つの特定のテキストファイルだけをコピーします。
enter code here
My.Computer.FileSystem.CopyFile("C:\CopyTo\test.txt",
"C:\CopyHere\test.txt")
もちろん!まず、ファイルを検索する関数が必要です。
Public Sub SearchFiles(ByVal Pattern As String, ByVal Path As String, ByVal FilesFound As ArrayList)
FilesFound.AddRange(Directory.GetFiles(Path, Pattern))
End Sub
しかし、ファイルのリストをどこに保存する必要がありますか?配列を使用できます。また、出力フォルダーと入力フォルダーを定義する必要があります
Dim files As New ArrayList
Dim inDir As String = "input path"
Dim outDir As String = "output path"
これで、この関数を次のように呼び出すことができます。
SearchFiles("*.txt", inDir, files)
フォルダ内のすべての.txtファイルが配列リストに保存されます。しかし、どうすればそれを扱うことができますか?これで、次のように操作できます。
Try
For Each file As String In files
Dim fName As String = Path.GetFileName(file)
My.Computer.FileSystem.CopyFile(file , outDir & "\" & fName, overwrite:=False)
Next
Catch ex As Exception
Console.WriteLine(ex.ToString)
End Try
これにより、inDirで見つかったすべての.txtファイルがoutDirにコピーされます。何か問題が発生した場合は、コンソールに表示されます。それを試してみて、それがどのように機能するかを理解してください:)
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加