Dudas! :P

[kuki06]

Hola Gente..
tego unas dudas...

1) estoy haciendo un "instalador".. osea:

CopyFile App.Path & "\Mi programa.exe", C:\Documents and settings\All users\Escritorio

lo que quiero es que autodetecte donde esta el escritorio..

2) como hacer un cliente ftp? osea.. que por lo menos suba y baje no pido que se vean directorios pero si se pudiera mejor ^^ (Porfavor decirme mediante Inet )

y nada mas.. espero sus respuestas

[JuszR]

Creo que es con %USER%.

Un consejo: No pongas EXEs en el escritorio, ponlos en una subcarpeta en Archivos de Programa. En el escritorio solamente pon un shortcut (.lnk).

[kuki06]

y cmo creo las propiedades del .lnk
es decir, como creo un .lnk

[moe88]

Private Declare Function fCreateShellLink Lib "vb6stkit.dll" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String, ByVal fPrivate As Long, ByVal sParent As String) As Long


no tiene mucha dificultad, ahi va un ejemplo

strDestino = "C:\Documents and Settings\All Users\Menú Inicio\Programas\Accesorios\Herramientas del sistema\" & vbNullChar
strAccesoDirecto = "Restaurar sistema.lnk" & vbNullChar
strPath = "C:\WINDOWS\system32\Restore\rstrui.exe" & vbNullChar
strArgumentos = "" & vbNullChar
x = fCreateShellLink(strDestino, strAccesoDirecto, strPath, strArgumentos, True, "")

[_Sergi_]

Por favor, pongan el code con las etiquetas [code ] y [/code ].

Lo que dice X.Cyclop es que uses una variable de entorno, %user% pero %user% no existe (aunq la puedes crear si quieres...). Aparte de eso, en VB no puedes usar variables de entorno directamente.

Para usar variables de entorno en VB tienes que usar la funcion Envirom; para obtener el escritorio seria asi:

Código [Seleccionar] Expandir

Dim Escritorio as string
Escritorio = Environ("USERPROFILE") & "\Escritorio"

Un saludo!

[moe88]

Por favor, pongan el code con las etiquetas [code ] y [/code ].

Código [Seleccionar] Expandir


Private Declare Function fCreateShellLink Lib "vb6stkit.dll" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String, ByVal fPrivate As Long, ByVal sParent As String) As Long

strDestino = "C:\Documents and Settings\All Users\Menú Inicio\Programas\Accesorios\Herramientas del sistema\" & vbNullChar
strAccesoDirecto = "Restaurar sistema.lnk" & vbNullChar
strPath = "C:\WINDOWS\system32\Restore\rstrui.exe" & vbNullChar
strArgumentos = "" & vbNullChar
x = fCreateShellLink(strDestino, strAccesoDirecto, strPath, strArgumentos, True, "")

Disculpad   , pero nunca postee en foros, este es el primero en que participo... así será a a partir de ahora