Special Directory's Not Working..

[Watto2010]

im currently working on a project, which requires to download files from the internet and copy them to certain directory's... i've done the downloading part but i can't seem to get the directorys working.....
the directory's are "special" E.G. Appdata Program Files ETC, and well when i tried just using %appdata% it seemed to create a new directory NAMED %appdata% rather than actually goto appdata... so after some searching i managed to whip up a code but theres something wrong with it... but im not sure what.... please help also im not the best a VB so some complicated stuff i may not understand

Look at the attachment to see what the error is

[jmcilhinney]

The problem is that you are assigning the folder path to a variable and then not using that variable. Anything INSIDE the double quotes is literal text. If you want to use a String variable then it must be OUTSIDE the double quotes. Try running this code to see the difference:

Dim str1 As String = "Hello"
Dim str2 As String = "World"

MessageBox.Show("str1 &  & str2")
MessageBox.Show(str1 & " " & str2)

[Watto2010]

The problem is that you are assigning the folder path to a variable and then not using that variable. Anything INSIDE the double quotes is literal text. If you want to use a String variable then it must be OUTSIDE the double quotes. Try running this code to see the difference:

Dim str1 As String = "Hello"
Dim str2 As String = "World"

MessageBox.Show("var1 &  & var2")
MessageBox.Show(var1 & " " & var2)

like i said im abit slow... im not quite sure what im meant to be running outside the quotes...

[jmcilhinney]

Sorry, I made an error in that code so it wouldn't run. I've fixed it now. Run the code I provided, look at the results it produces, look at the difference in the code and it should be fairly clear from what I said in my previous post what the principle is that my code is demonstrating and how you can apply that to your own code to fix your error.

[Watto2010]

oh yeah i see what you mean... however i tried replacing and now its aggrivating me... i can't seem to intergrate it with my code correctly ;/ it keeps scrweing up no matter which way i format it.....

Here was one attempt:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim fileP As String
        fileP = My.Computer.FileSystem.SpecialDirectories.Desktop
        Dim str1 As String = FileCopy(fileP / "Test.bat", fileP / "Test Folder")
        Dim str2 As String = "Moved!"
 
        MessageBox.Show("str1 &  & str2")
        MessageBox.Show(str1 & "File Moved" & str2)
    End Sub
End Class

[.paul.]

try this:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Dim fileP As String
    fileP = My.Computer.FileSystem.SpecialDirectories.Desktop
    Dim source As String = fileP & "\Test.bat"
    Dim destination As String = fileP & "\Test Folder\Test.bat"
    FileCopy(source, destination)
 
    MessageBox.Show(String.Format("'{0}' File Copied to '{1}'", source, destination))
End Sub

[Watto2010]

try this:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Dim fileP As String
    fileP = My.Computer.FileSystem.SpecialDirectories.Desktop
    Dim source As String = fileP & "\Test.bat"
    Dim destination As String = fileP & "\Test Folder\Test.bat"
    FileCopy(source, destination)
 
    MessageBox.Show(String.Format("'{0}' File Copied to '{1}'", source, destination))
End Sub

Thank you so much, your a life saver, ill add you to the credits <3, thanks alot.. <3

you to jmcilhinney , quick reply to, Thanks again