FoxPro/Visual FoxPro - Accesos directos... en cualquier windows

hola a todos, muchas gracias de ante mano y felicito a este portal ya que ha servido de gran ayuda para todos nosotros.

Bien tengo una aplicacion que genera cada año una carpeta nueva dentro de por ejemplo
C:\SISTEMA\

C:\SISTEMA\AÑO2007
C:\SISTEMA\AÑO2008

Pues esto me sale bien pero tengo que entrar a cada carpeta y darle enviar como acceso directo al escritorio, hay operadores que lo manejan que saben como hacer esto y deseo saber como enviar un acceso directo luego de generar esta carpeta nueva desde vfp8 o vfp9 que funcione con cualquiere windows.

Gracias.

Douglas

WshShell = CreateObject("Wscript.shell")
strDesktop = WshShell.SpecialFolders("Desktop")
oMyShortcut = WshShell.CreateShortcut(strDesktop + "\miacceso.lnk")
OMyShortcut.TargetPath = "C:\SISTEMA\AÑO2008"
oMyShortCut.Save

Hola:
Creo que Plinio ya te dio la respuesta:

Dime como le hicistes para crear tus carpetas y subcarpetas

C:\SISTEMA\
C:\SISTEMA\AÑO2007
C:\SISTEMA\AÑO2008

Y como validas si el usuario intenta crear de nuevo por error, es algo que hasta ahora no logro hacerlo.

Espero puedas ayudarme, Saludos.

la carpeta original ya esta registrada

cada ves q yo hagos estos pregunto si esta ya existe como lo hago de esta manera
******************asi el acceso directo como dice plinio aunque le faltaba una linea pero ya aberigue

WshShell = CreateObject("Wscript.shell")
strDesktop = WshShell.SpecialFolders("Desktop")
oMyShortcut = WshShell.CreateShortcut(strDesktop + "\POA2008.lnk")
OMyShortcut.TargetPath = "C:\poa2007\sisco.exe"
OMyShortcut.workingdirectory = "C:\poa2007\" &&&&faltaba iniciar en
oMyShortCut.Save

LA CARPETA ASI

XANO = "2007"
XDIR = "BASES"+XANO
IF !DIRECTORY(XDIR")
MD &XDIR
ELSE
=MESSAGEBOX("Directorio ya esta generado desea volverlo a generar",0+16,"Advertencia")
RETURN
ENDIF

Ves como el Intellisence hace magia.