 Autor
|
Tema: Dudas! :P (Leído 1,437 veces)
|
kuki06
 Desconectado
Mensajes: 20
|
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
|
|
|
|
|
En línea
|
|
|
|
JuszR
Desconectado
Mensajes: 2.866
Programming & RI
|
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).
|
|
|
|
|
En línea
|
- No programming language is perfect. There is not even a single best language; there are only languages well suited or perhaps poorly suited for particular purposes. [Herbert Mayer]
|
|
|
kuki06
Desconectado
Mensajes: 20
|
y cmo creo las propiedades del .lnk
es decir, como creo un .lnk
|
|
|
|
|
En línea
|
|
|
|
moe88
Desconectado
Mensajes: 36
|
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, "")
|
|
|
|
|
En línea
|
|
|
|
_Sergi_
Desconectado
Mensajes: 842
|
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: Dim Escritorio as string
Escritorio = Environ("USERPROFILE") & "\Escritorio" Un saludo! |
|
|
|
« Última modificación: 28 Abril 2006, 13:15 pm por _Sergi_ »
|
En línea
|
Proyecto de Ingeniero
|
|
|
moe88
Desconectado
Mensajes: 36
|
Por favor, pongan el code con las etiquetas [code ] y [/code ]. 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
|
|
|
|
|
En línea
|
|
|
|
|
 |
