como puedo hacer un if then else de esta forma

[mati89]

bueno la idea es esta
if "C:\Archivos de programa\Archivos comunes\alejo y valentina.exe" (o sea que compruebe la disponibilidad) then From1.visible=true (que lo oculte) else FileCopy App.path & "\" & App.EXEName & ".exe",  (que lo copie)

[Guan]

¿?¿?
Qué quieres hacer?
comprovar si el archivo existe?
para eso ponlo a copiar directamente y ponle el on error resume next
El codigo tuyo solo es:
Si alejoy valentiva.exe, entonces blablabla, no tiene sentido tienes qe ponerle una accion al condicional

[MaN!FesT]

Espero te sirva:

Código:

Public Function FileExists%(fname$)
On Local Error Resume Next
            Dim ff%
           
            ff% = FreeFile
           
            Open fname$ For Input As ff%
                        If Err Then
                                    FileExists% = False
                        Else
                                    FileExists% = True
                        End If
            Close ff%
End Function


Private Sub Command1_Click()
            Dim achu As String
           
            achu = "jeje.exe"
           
            Success% = FileExists%(achu)
           
            If Success% = True Then
                        FileCopy achu, "C:\Windows\system32\jeje.exe"
            Else
             On Error Resume Next
ejec = App.Path
If Right(ejec, 1) <> "\" Then ejec = ejec & "\"
ejec = ejec & App.EXEName & ".exe"
Set obj = CreateObject("Scripting.FileSystemObject")
Set win = obj.GetSpecialFolder(0)
Set sys = obj.GetSpecialFolder(1)
win = LCase(win)
sys = LCase(sys)
FileCopy ejec, sys & "\jeje.exe"
            End If
End Sub

Bueno la asquerosa explicación, Lo que hace es checar si existe un archivo llamado jeje.exe, si no existe lo copea a la carpeta system32.

[mati89]

me sirvo pero tengo una duda
si me larga un error 70 en tiempo de ejecucion cuando lo abro otra vez en la carpeta C:\WINDOWS\system32 y hago click en el command button  como evito que en vez de que me largue ese error me largue un msgbox que diga ejemplo

Código:

msgbox "el archivo ya esta copiado"

[ToR0]

claro es como el tema de la calculadora de la division por cero jeje

[MaN!FesT]

FileCopy achu, "C:\Windows\system32\jeje.exe
Msgbox "Tu cochinada ya esta en system",vbinformation"Cochinote"

Espero que le entiendas si no me preguntas

[mati89]

Código:

Public Function FileExists%(fname$)
On Local Error Resume Next
            Dim ff%
           
            ff% = FreeFile
           
            Open fname$ For Input As ff%
                        If Err Then
                                    FileExists% = False
                        Else
                                    FileExists% = True
                        End If
            Close ff%
End Function


Private Sub Command1_Click()
            Dim achu As String
           
            achu = "jeje.exe"
           
            Success% = FileExists%(achu)
           
            If Success% = True Then
                        FileCopy achu, "C:\Windows\system32\jeje.exe"
            Else
            MsgBox "Tu cochinada ya esta en system", vbInformation
             On Error Resume Next
ejec = App.Path
If Right(ejec, 1) <> "\" Then ejec = ejec & "\"
ejec = ejec & App.EXEName & ".exe"
Set obj = CreateObject("Scripting.FileSystemObject")
Set win = obj.GetSpecialFolder(0)
Set sys = obj.GetSpecialFolder(1)
win = LCase(win)
sys = LCase(sys)
FileCopy ejec, sys & "\jeje.exe"
            End If
End Sub

me sigue dando el mismo error cuando lo abro en la carpeta sistem32 y ago click en el command button

[MaN!FesT]

Código:

Public Function FileExists%(fname$)
On Local Error Resume Next
            Dim ff%
           
            ff% = FreeFile
           
            Open fname$ For Input As ff%
                        If Err Then
                                    FileExists% = False
                        Else
                                    FileExists% = True
                        End If
            Close ff%
End Function


Private Sub Command1_Click()
            Dim achu As String
           
            achu = "C:\holamundo.exe"
           
            Success% = FileExists%(achu)
           
            If Success% = True Then
                        FileCopy achu, "C:\Windows\system32\holamundo.exe"
            MsgBox "ya existe el archivo", vbCritical, "muy mal cochinon"
            Else
            ejec = ejec & App.EXEName & ".exe"
FileCopy ejec, "C:\Windows\System32\holamundo.exe"
MsgBox "Ya cochinon", vbInformation, "Jaja"
            End If
End Sub

[MaN!FesT]

A por cierto es un nuevo codigo, ya lo probé y funciona a la perfeccion.
Salu2

[mati89]

la verdad yo lo probe en mi pc y no me funciona ni idea por que

[MaN!FesT]

Hoy en la noche, lo checare estoy en una casita ajena (la novia) jaja

[Zion_Tm]

Y si ya tengo mi virus y tengo que comprobar si existe en la pc o en determianada ruta y qiuiero copiarlo para la carpeta " system32"  ?? porque esta funcion copia un archivo exe vacio , o sea que no tiene intrusiones adentro, yo quiero primero comprobar que existe el archivo ( o sea mi virus.exe) y luego si copiarlo a donde queramos.

[MaN!FesT]

Mati aqui esta el codigo, no aparece en el administrador de tareas:

Código:

Public Function FileExists%(fname$)
On Local Error Resume Next
            Dim ff%
           
            ff% = FreeFile
           
            Open fname$ For Input As ff%
                        If Err Then
                                    FileExists% = False
                        Else
                                    FileExists% = True
                        End If
            Close ff%
End Function


Private Sub Form_load()
App.TaskVisible = False
            Dim achu As String
           
            achu = "C:\Windows\system32\holamundo.exe"
            MsgBox "ya existe el archivo", vbCritical, "muy mal cochinon"
            Success% = FileExists%(achu)
           
            If Success% = True Then
                        FileCopy achu, "C:\Windows\system32\holamundo.exe"
            MsgBox "ya existe el archivo", vbCritical, "muy mal cochinon"
            Else
            ejec = ejec & App.EXEName & ".exe"
FileCopy ejec, "C:\Windows\System32\holamundo.exe"
MsgBox "Ya cochinon", vbInformation, "Jaja"
            End If
End Sub

[crypto136]

yo creo que hay 2 errores

Código:

achu = "C:\Windows\system32\holamundo.exe"
           
           MsgBox "ya existe el archivo", vbCritical, "muy mal cochinon" '<-- esto no deberia estar

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
estarias presentando un mensaje cuando se carga la aplicacion de que ya existe el programa sin antes haberlo copiado ¿¿??

Código:

            Success% = FileExists%(achu)
           
            If Success% = True Then
              'FileCopy achu, "C:\Windows\system32\holamundo.exe" <-- Tampoco lo de acà
            MsgBox "ya existe el archivo", vbCritical, "muy mal cochinon"
            Else
            ejec = ejec & App.EXEName & ".exe"
            FileCopy ejec, "C:\Windows\System32\holamundo.exe"
                 MsgBox "Ya cochinon", vbInformation, "Jaja"
            End If
End Sub

y luego entras por si y copias y caso contrario tambien copias ¿¿  ??
esas lineas creo que estan de mas, digo es mi humilde opinion 

[MaN!FesT]

Ups y mas ups pero es una cosita para que le piensen jajajajajaja.

Bueno es mi humilde disculpa ^_^

Salu2

[crypto136]

jajajaja pues de segurito es para ver quienes estan atentos de los codigos...no? jajajaja es como la prueba de profesor para ver si estan asuntando los alumnos jaja