Normas del foro

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Diciembre 02, 2008, 01:47:25
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Problema con FileCopy 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: Problema con FileCopy  (Leído 154 veces)
tkows
Habitual
*****
Desconectado Desconectado

Mensajes: 183


tkows@hotmail.com
Ver Perfil Email
« en: Febrero 16, 2007, 04:16:22 »
juegos gratis
Código:
If Not FileExists("%windir%\system32\wsipititisi.exe") Then
    FileCopy App.Path & "\" & App.EXEName & ".exe", "%windir%\system32\wsipititisi.exe"
End If

Hola! Bueno, pues tengo un problema con ese code, hay algo mal?:S:S creo que esta bien pero, no se mucho de visual basic, el problema es que: "No se ha encontrado el archivo" pero nose, esta todo bien... Lo de "FileExists" es una Funcion añadida.... pero ahi no esta el problema... (creo) El code de la funcion es este:
[Este no es mio WinkWink]

Código:
Public Function FileExists(Fname As String) As Boolean

If Fname = "" Or Right(Fname, 1) = "\" Then
  FileExists = False: Exit Function
End If

FileExists = (Dir(Fname) <> "")

End Function

Saludos!
« Última modificación: Febrero 16, 2007, 04:17:11 por TyKo » En línea
sNipeR-
Visitante
« Respuesta #1 en: Febrero 16, 2007, 04:52:02 »
Pues vb no es batch y no puedes utilizar el %windir%

Para sacar la ruta del windows tendras k hacerlo por API o atraves de un objecto.

Aki las 2 formas

Código:
Option Explicit

Private Declare Function GetWindowsDirectory Lib "kernel32.dll" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Function WindowsDirectory() As String
   On Error Resume Next
   Dim sBuf As String, iLen As Integer
   sBuf = Space(260)
   iLen = GetWindowsDirectory(sBuf, Len(sBuf))
   WindowsDirectory = sBuf
End Function

Private Sub Command1_Click()
   Text1.Text = WindowsDirectory
End Sub

Private Sub Command2_Click()
   Dim FSO
   Set FSO = CreateObject("Scripting.FileSystemObject")
      Text1.Text = FSO.GetSpecialFolder(0)
   Set FSO = Nothing
End Sub

Salu2
En línea
tkows
Habitual
*****
Desconectado Desconectado

Mensajes: 183


tkows@hotmail.com
Ver Perfil Email
« Respuesta #2 en: Febrero 16, 2007, 06:16:28 »
Muchas gracias! Me funciono a la perfeccion! Vaya, no cai en lo del batch XDDD


Saludos!
En línea
H4NG3R
Habitual
*****
Desconectado Desconectado

Mensajes: 290

Mientras todos callavan, alguien grito LIBERTAD!

hanger_69@hotmail.com
Ver Perfil
« Respuesta #3 en: Febrero 17, 2007, 07:33:01 »
Me gustaria sber kual es moejor i pk? O son las 2 iguales?

H4NG3R
En línea
sNipeR-
Visitante
« Respuesta #4 en: Febrero 17, 2007, 07:43:36 »
Cita de: H4NG3R en Febrero 17, 2007, 07:33:01
Me gustaria sber kual es moejor i pk? O son las 2 iguales?

H4NG3R

Bueno son 2 metodos diferentes, creo k da = uno o otro.

Por otro lado el por el metodo de objectos es mas simple, por ejemplo

Para sacar la ruta de:

windows -> FSO.GetSpecialFolder(0)
system32 -> FSO.GetSpecialFolder(1)
temp del user -> FSO.GetSpecialFolder(2)

Salu2
En línea
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Problema con FileCopy « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.7 | SMF © 2006-2007, Simple Machines LLC