[Help]SupportMultiDottedExtensions[Solved]

Originally Posted by *************

Ok, 1 Problem. It addes the folder name to the files that are to be moved and doesn't move the files...

Heres a pic if you don't know what i'm saying...

Show me the exact code you used.

Originally Posted by Jason

Show me the exact code you used.

[php] Dim newDirectory As String = TextBox2.Text
For Each s As String In OpenFileDialog1.FileNames
Dim fileLoc As String = s
IO.File.Move(fileLoc, newDirectory & IO.Path.GetFileName(fileLoc))
Next[/php]

I had to use openfiledialog, buecause apperently, you can only use open for 1 thing.

Originally Posted by *************

What was in TextBox2?

Originally Posted by Jason

What was in TextBox2?

The folder location...

Originally Posted by *************

The folder location...

. I need to know exactly what was in it. Because I tested the code I provided and it worked fine, so I'm guessing it has something to do with the filelocation.

Maybe a missing \?

Originally Posted by Jason

. I need to know exactly what was in it. Because I tested the code I provided and it worked fine, so I'm guessing it has something to do with the filelocation.

Its a FolderBrowserDialog and I have a New folder on my desktop and in that folder are 2 files (like in the picture) and theres a folder in that, so i select my 2 files. I put the folder location in the Folder.

Originally Posted by *************

Stop answering a question with a general statement and just answer it as I asked it.

What was the contents of TextBox2 at the time when you wanted to move the files?

I don't want anything apart from a straight answer, otherwise I can't help you.

Ok... well i'll post a pic then...

and in the txtbox

C:\Users\My Username\Desktop\New folder\Folder

Originally Posted by *************

Ok... well i'll post a pic then...

and in the txtbox

C:\Users\My Username\Desktop\New folder\Folder

Okay try this then:

Code:

Dim newDirectory As String = TextBox2.Text
For each s As String in OpenFile.FileNames
    Dim fileLoc As String = s
    IO.File.Move(fileLoc, IO.Path.Combine(newDirectory, IO.Path.GetFileName(fileLoc)))
Next

Originally Posted by Jason

Dim newDirectory As String = TextBox2.Text
For each s As String in OpenFile.FileNames
Dim fileLoc As String = s
IO.File.Move(fileLoc, IO.Path.Combine(newDirectory, IO.Path.GetFileName(fileLoc)))
Next

Thanks, it works. I guess thats all.

Originally Posted by *************

Thanks, it works. I guess thats all.

TextBox2.Text was missing the final backslash so when i concatenated the strings, the was no backslash to delimit the file and the folder so it just clumped together. IO.Path.Combine can handle both types of string so I used that instead.

Offtopic:

Lol mnpeepno2, It would be something like this:

Wtf.txt.exe.wtf.goto.hell.son.of.a.bitch.what.the. fuck.why.am.i.doing.this.again?.lol

Ontopic:

I never used a Multidotted Thing, but he is correct, A Example of a *** Real MultiDotted thing is:

(*.Dev.Comp.Load.exe.dll.dnt)

Good Luck Programming

Originally Posted by o0OpurezO0o

Is it just me who does not understand 90% of your posts?

Originally Posted by Blubb1337

Is it just me who does not understand 90% of your posts?

No, its just you and me !

[Help]SupportMultiDottedExtensions[Solved]

Post a Reply

Tags for this Thread