CODEWITHSUNDEEP
vb.net
user225269
user225269

Reputation: 10893

Copy files in VB.NET

I'm trying to create an installer-like application. Here is what its supposed to do: create a directory in C: and name it batch. Then copy the files from the folder and move it to the C:\batch directory. But the copying of files doesn't work.

How am I supposed to put the exact directory in here if that exact directory does not apply to all? What do I do with it? If the file that is to be copied is from: E:\Documents and Settings\Rew\My Documents\Visual Studio 2008\Projects\batch\batch

I want it to be universal. So that wherever the file maybe it could always copy it regardless of where it is located.

Somehow the creating of a directory work.

Dim FileToCopy As String
Dim NewCopy As String
Try
    Directory.CreateDirectory("C:\Batch")

    FileToCopy = "\batch\batch\ipconfigrenew.bat"
    FileToCopy = "\batch\batch\ipconfigrelease.bat"
    FileToCopy = "\batch\batch\ipconfigflushdns.bat"
    NewCopy = "C:\Batch"

    If System.IO.File.Exists(FileToCopy) = True Then
        System.IO.File.Copy(FileToCopy, NewCopy)
        MsgBox("File Copied")
    End If
Catch
End Try
MsgBox("Done")

Upvotes: 0

Views: 9238

Answers (1)

rerun
rerun

Reputation: 25505

First, the only value in FileToCopy by the time you do the copy is the last one. I'm having trouble parsing the question to figure out what you need, but I would first do this:

    Dim FileToCopy(3) As String
    FileToCopy(0) = "\batch\batch\ipconfigrenew.bat"
    FileToCopy(1) = "\batch\batch\ipconfigrelease.bat"
    FileToCopy(2) = "\batch\batch\ipconfigflushdns.bat"
    Dim NewCopy As String = "C:\Batch"
    Dim s As String
    For Each s In FileToCopy
        If System.IO.File.Exists(s) = True Then
            System.IO.File.Copy(s, NewCopy)
            MsgBox("File Copied")
        End If
    Next

Next, I would decide if I needed to write this in a more generic way.

Upvotes: 2

Related Questions