[Help]File Mover

[Cryptonic]

So, I'm making a program that moves files. But, i have an error.

I can have it select more than 1 file, but now how to make it move more than 1...

AND

Im using a folder browser for the location to be moved, and it needs to to have the file name after it, and if you select more than 1, then it becomes a problem...

Heres my current code:
[php] Dim path As String = TextBox1.Text
Dim destination As String = TextBox2.Text
If File.Exists(path) And Not File.Exists(destination) Then
File.Move(path, destination)
MsgBox("File Moved Successfully", MsgBoxStyle.Information, "Sucess")
Else
MsgBox("The file(s) already exist in the current location.", MsgBoxStyle.Critical, "Error")
End If[/php]

Hmmmm...

Any Help?

[willrulz188]

whats your error?

[Cryptonic]

whats your error?

Uhm... my error is how am I sopposta put it so it will auto put the file names in textbox2, and its only set to move 1 file, not 2+

[willrulz188]

Uhm... my error is how am I sopposta put it so it will auto put the file names in textbox2, and its only set to move 1 file, not 2+

Copy and paste your error or I wont be any help

[Cryptonic]

Ok...



Though, the file doesn't exist...

[willrulz188]

I get nothing wrong...


try

        Dim path As String = TextBox1.Text
        Dim destination As String = TextBox2.Text
        If IO.File.Exists(path) And Not IO.File.Exists(destination) Then
            IO.File.Move(path, destination)
            MsgBox("File Moved Successfully", MsgBoxStyle.Information, "Sucess")
        Else
            MsgBox("The file(s) already exist in the current location.", MsgBoxStyle.Critical, "Error")
        End If

[Calebb]

If i'm understanding you right, just give each file an assigned textbox.

[[MPGH]master131]

How is your code even readable? O__o Black background ftw?

[willrulz188]

How is your code even readable? O__o Black background ftw?

easier on the eyes

[Calebb]

How is your code even readable? O__o Black background ftw?

High Contrast. ;D
Alt + Shift + PrtScrn

/offtopic

[willrulz188]

High Contrast. ;D
Alt + Shift + PrtScrn

/offtopic

Nope Tools>Options>Environments lol

[Cryptonic]

I get nothing wrong...


try

        Dim path As String = TextBox1.Text
        Dim destination As String = TextBox2.Text
        If IO.File.Exists(path) And Not IO.File.Exists(destination) Then
            IO.File.Move(path, destination)
            MsgBox("File Moved Successfully", MsgBoxStyle.Information, "Sucess")
        Else
            MsgBox("The file(s) already exist in the current location.", MsgBoxStyle.Critical, "Error")
        End If

Well, first off, I'm trying to make it where you don't have to put the filename in the second textbox. If i put the filename in the textbox, that error wouldn't happen. Which should fix the other errors because if you select more than 1 file, you would have to enter more than 1 filename.. that or it wouldn't work at all...

[Jason]

Oops, I posted a solution in your other thread, didn't realize you made another thread /QQ