I put code in visual studio 2013. Folder and file copy one to another drive date-wise. But show an error..

Question

0.00/5 (No votes)

See more:

VB.NET

Imports System.IO

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sourceFolderPath As String = "C:\Path\to\source\folder"
        Dim destinationFolderPath As String = "D:\Path\to\destination\folder"

        ' Create a folder with today's date
        Dim todayFolder As String = Path.Combine(destinationFolderPath, DateTime.Today.ToString("yyyy-MM-dd"))
        If Not Directory.Exists(todayFolder) Then
            Directory.CreateDirectory(todayFolder)
        End If

        ' Copy the source folder and its contents to the destination folder
        CopyFolder(sourceFolderPath, todayFolder)

        MessageBox.Show("Folder copied successfully!")
    End Sub

    Private Sub CopyFolder(sourceFolder As String, destinationFolder As String)
        ' Create destination folder if it doesn't exist
        If Not Directory.Exists(destinationFolder) Then
            Directory.CreateDirectory(destinationFolder)
        End If

        ' Copy files from source folder to destination folder
        For Each file As String In Directory.GetFiles(sourceFolder)
            Dim fileName As String = Path.GetFileName(file)
            Dim destinationFilePath As String = Path.Combine(destinationFolder, fileName)


           'error Line bellow

            File.Copy(file, destinationFilePath, True)
        Next

        ' Copy subfolders from source folder recursively
        For Each subfolder As String In Directory.GetDirectories(sourceFolder)
            Dim subfolderName As String = Path.GetFileName(subfolder)
            Dim destinationSubfolderPath As String = Path.Combine(destinationFolder, subfolderName)

     

            CopyFolder(subfolder, destinationSubfolderPath)

        Next
    End Sub
End Class

What I have tried:

error Line

VB

File.Copy(file, destinationFilePath, True)

visual studio2013 shows "Too many arguments to 'Public Shared Function Copy (str As String) As String"

Posted 17-May-23 21:03pm

Member 13567676

Updated 17-May-23 21:30pm

CHill60

v4

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

OriginalGriff · Accepted Answer · 2023-05-17T21:30:00

Your For Each loop declares a variable called file - which the system assumes is what you mean when you write:

File.Copy(file, destinationFilePath, True)

Rename it and the confuseion will go away:

For Each filePath As String In Directory.GetFiles(sourceFolder)
    Dim fileName As String = Path.GetFileName(filePath)
    Dim destinationFilePath As String = Path.Combine(destinationFolder, fileName)
    File.Copy(filePath, destinationFilePath, True)
Next