Visual Basic - grabar en el escritorio

Hola a todos, me gustaría, desde visual basic, crear una carpeta en el escritorio y dentro de esta carpeta copiar un archivo que tengo en otro sitio ¿sería posible esto?, es que estoy buscando en la ayuda de visual pero no encuentro nada.
Muxas gracias por adelantado.

Mira, yo lo he hecho dando la ruta exacta, por ejemplo:

Private Sub Command1_Click()
Set fso = CreateObject("Scripting.FileSystemObject")
fso.GetFileName ("\\")
fso.CreateFolder ("C:\Documents and Settings\All Users\Escritorio\Ejemplo")
End Sub

Como veras es algo largo. Ademas debo aclarar q manejo Win2000 y la ruta se hace mas larga. Creo q la subcarpeta de escritorio en Win 95 y 98 se encuentra directamente en la carpeta de Windows, asi q modificarias la ruta de tu nueva carpeta haciendola mas corta.

Espero q te sirva de algo...Saludos!!!

No se si el anterior no te entendió o si el que no ha entendido he sido yo.
Para crear un directorio MkDir ruta
Para copiar un archivo CopyFile origen,destino