Copy Folders On Root?

I'm trying to copy the directories located on a root drive (J:) to another location (c:vagtilleder..)The problem is, the first folder isn't beeing copied.Example:

J:
ootfoldersubfolder1subfolder2

After the copy it should look like this at the destination:

c:vagtilleder..
ootfoldersubfolder1subfolder2

But for some reason, "rootfolder" is not created at the destination, making the destination look like this:

c:vagtilleder..subfolder1subfolder2

where the error is located? OS: Win XP Pro VB 2008 Express.

Dim copytardir As String
Dim copydestdir As String
copytardir = ("J:")
copydestdir = ("C:VagtBilleder" & StrInput)

[code]....