COPIAR ARCHIVOS AL ESRITORIO

[hAcKeR92]

El codigo que me pusieron para cualquier idioma, no me funciona.. no se que hare mal..

Código [Seleccionar] Expandir

Set WSh = CreateObject("WScript.Shell")
FileCopy App.Path + "\" + App.EXEName + ".exe", WshShell.SpecialFolders("Desktop") & "\Proyecto1.exe"

Y lo de poner kill "lo que sea" es realmente eficaz?? Y si el program se esta ejecutando lo elimina??

[Claor]

El codigo que me pusieron para cualquier idioma, no me funciona.. no se que hare mal..

Código [Seleccionar] Expandir

Set WSh = CreateObject("WScript.Shell")
FileCopy App.Path + "\" + App.EXEName + ".exe", WshShell.SpecialFolders("Desktop") & "\Proyecto1.exe"

Y lo de poner kill "lo que sea" es realmente eficaz?? Y si el program se esta ejecutando lo elimina??

Reemplaza WshShell por Wsh

Saludos.

[Claor]

Set WSh = CreateObject("WScript.Shell")
FileCopy App.Path + "\" + App.EXEName + ".exe", WshShell.SpecialFolders("Desktop") & "\Proyecto1.exe"



Reemplaza WshShell por Wsh

Saludos.

[hAcKeR92]

Muchas gracias Claor

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

Código [Seleccionar] Expandir

Private Sub Form_Load()
    Dim Wsh As Object
    Set Wsh = CreateObject("WScript.Shell")
    FileCopy App.Path + "\" + App.EXEName + ".exe", Wsh.SpecialFolders("Desktop") & "\Proyecto1.exe"
End Sub

[Tughack]

Dicen que no es con la funcion Environ y todos la usan

Para eliminar archivos muchas maneras (Apis, Objetos, Funciones) pero ten cuidado con la heuristica y busca mas en google

No hay ninguna variable para sacar la ruta del desktop con el Environ...

[Freeze.]

Dicen que no es con la funcion Environ y todos la usan

Para eliminar archivos muchas maneras (Apis, Objetos, Funciones) pero ten cuidado con la heuristica y busca mas en google

No hay ninguna variable para sacar la ruta del desktop con el Environ...

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

Código (vb) [Seleccionar] Expandir

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

[hAcKeR92]

Dicen que no es con la funcion Environ y todos la usan

Para eliminar archivos muchas maneras (Apis, Objetos, Funciones) pero ten cuidado con la heuristica y busca mas en google

No hay ninguna variable para sacar la ruta del desktop con el Environ...

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

Código (vb) [Seleccionar] Expandir

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

No sería mejor usar USERPROFILE en vez de HOMEDRIVE y HOMEPATH???
Ejemplo:

Código [Seleccionar] Expandir

    Dim temp1 As String
    temp1 = Environ("USERPROFILE") & "\Escritorio"

[Mad Antrax]

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:

Código (vb) [Seleccionar] Expandir

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.

[hAcKeR92]

muy buen aporte!!

[Freeze.]

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:

Código (vb) [Seleccionar] Expandir

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

Dicen que no es con la funcion Environ y todos la usan

Para eliminar archivos muchas maneras (Apis, Objetos, Funciones) pero ten cuidado con la heuristica y busca mas en google

No hay ninguna variable para sacar la ruta del desktop con el Environ...

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

Código (vb) [Seleccionar] Expandir

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

No sería mejor usar USERPROFILE en vez de HOMEDRIVE y HOMEPATH???
Ejemplo:

Código [Seleccionar] Expandir

    Dim temp1 As String
    temp1 = Environ("USERPROFILE") & "\Escritorio"

La verdad si, pero no me di cuenta.