Reemplaza WshShell por Wsh

Saludos.

Muchas gracias Claor

Cambie WshShell por solo Wsh y me segui dando error, pero agregando alguna cosilla funciono.

Tienes toda la razon, no es la mejor opcion pero:

RutaEscritorio = Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Escritorio"

Y para terminar de hacer las cosas bien... porque no consultamos el Registro?

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Desktop

Os adjunto las otras variable útiles



Para leer el registro prefiero objetos antes que API's:

Private Sub Form_Load()
    Dim Wsh As Object
    Set Wsh = CreateObject("WScript.Shell")
    Dim tmp As String
    tmp = Wsh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Desktop")
    MsgBox tmp
End Sub

Ojo que estas rutas son las de AllUsersProfile, lo que pongas ahí se verán en los directorios de TODOS los usuarios de ese PC, se necesitan permisos administrativos para modificar el contenido de esas rutas.

Muchas gracias no lo conocia

---

La verdad si, pero no me di cuenta.