はじめました。よろしくお願いいたします。
VB.NET 2005 で引数エラーが出ます。
OS Windows10
エラー
Public shared function Copy(str AS string) AS stringに対する引数が多すぎます
Imports System.IO
Imports System.Net
Module MainModule
Sub Main()
' ネットワーク資格情報
Dim networkCredential As New NetworkCredential("ユーザー名", "パスワード")
' Aフォルダのパス
Dim sourceFolderPath As String = "Aフォルダのパス"
' Bフォルダのパス
Dim destinationFolderPath As String = "Bフォルダのパス"
' Aフォルダ内のすべてのファイルを取得
Dim files As String() = Directory.GetFiles(sourceFolderPath)
' 各ファイルをBフォルダにコピー
For Each file As String In files
Dim fileName As String = Path.GetFileName(file)
Dim destinationFilePath As String = Path.Combine(destinationFolderPath, fileName)
Try
' ファイルをコピー
File.Copy(file, destinationFilePath, True) ←ここでエラーです。
Console.WriteLine("ファイルをコピーしました: " & fileName)
Catch ex As Exception
' エラーが発生した場合はログを出力
Console.WriteLine("エラーが発生しました: " & ex.Message)
End Try
Next
Console.ReadLine()
End Sub
End Module
以上 よろしくお願いいたします。