Autor
|
Tema: mi programa No encuentra vb6 este archivo... (Leído 6,214 veces)
|
Senior++
Desconectado
Mensajes: 957
Ama y haz lo que te de la gana
|
Bueno amigos este es mi programa Private Function Existe(Archivo As String) As Integer Existe = Len(Dir$(Archivo)) If Existe Then Label1 = Archivo & " Si existe" Else Label1 = Archivo & " No existe" End If End Function
Private Sub Form_Load() Dim A As Integer, Nombre As String Show Label1 = "" Nombre = "C:\Autoexec.exe" A = 5 If A > 10 Then If Existe(Nombre) Then Print A; "mayor de 10 y " & Nombre & " existe" Else Print A; "es mayor de 10 pero " & Nombre & " no existe" End If Else Print A; "no es mayor de 10 o " & Nombre & " no existe" End If End Sub
Entonces yo cree en en c:/ un archivo llamado asi (autoexec.exe) pero dice que no se encuentra Eso por que ¿que hice mal? Saludos
|
|
« Última modificación: 8 Julio 2011, 21:25 pm por raul338 »
|
En línea
|
Vendo cuenta de LEAGUE OF LEGENDS lvl 30, EU west, muy barata
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!! Private Function Existe(Archivo As String) As Integer Existe = Len(Dir$(Archivo)) If Existe Then '--------^ ACA ESTA EL ERROR PONE "IF EXISTE > 0 THEN" Label1 = Archivo & " Si existe" Else Label1 = Archivo & " No existe" End If 'ACA AGREGA ESTO: IF EXISTE > 0 THEN EXISTE = 1 End Function
Yo lo haria asi: Private Function Existe(Archivo As String) As Boolean If Len(Dir(Archivo)) > 0 Then Existe = True End Function
Igual Dir es muy Lento, hay un Reto donde se encuentra la manera mas rapida para encontrar la ruta del archivo. GRACIAS POR LEER!!!
|
|
« Última modificación: 8 Julio 2011, 20:39 pm por 79137913 »
|
En línea
|
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!" "La peor de las ignorancias es no saber corregirlas"
79137913 *Shadow Scouts Team*
|
|
|
x64core
Desconectado
Mensajes: 1.908
|
en esta linea: haces una comprobacion que si el valor de A es mayor que 10 entonces comprobamos si existe el archivo pero el valor de A en ese momento el valor de A vale 5 noce porq tu sabras para resolverlo el valor de A debe ser mayor que 10 o moficas la condicion.
|
|
|
En línea
|
|
|
|
Senior++
Desconectado
Mensajes: 957
Ama y haz lo que te de la gana
|
Pero si modifico la condición solo me pone que es mayor que pero no encuentra el directorio... y si modifico el private function por el tu yo Private Function Existe(Archivo As String) As Boolean If Len(Dir(Archivo)) > 0 Then Existe = True End Function no esta definido el Label1 y daría error... Saludos...
|
|
|
En línea
|
Vendo cuenta de LEAGUE OF LEGENDS lvl 30, EU west, muy barata
|
|
|
x64core
Desconectado
Mensajes: 1.908
|
no veo el problema la funcion de comprobar el archivo esta bien creo sino prueba asi: If A > 10 Then If dir$(nombre) Then Print A; "mayor de 10 y " & Nombre & " existe" Else Print A; "es mayor de 10 pero " & Nombre & " no existe" End If Else Print A; "no es mayor de 10 o " & Nombre & " no existe" End If
asi no tienes que llamar a otra funcion ahi compruebas todo
|
|
« Última modificación: 8 Julio 2011, 21:25 pm por raul338 »
|
En línea
|
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!!
Label1 es una variable? Pfff
Todo mal, no es necesario saber si la longitud del directorio es 80 o 1 lo que importa es que es mayor a 0 nada mas. Aprende a debuggear con F8 y lee bien lo que escribo.
GRACIAS POR LEER!!!
|
|
|
En línea
|
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!" "La peor de las ignorancias es no saber corregirlas"
79137913 *Shadow Scouts Team*
|
|
|
$Edu$
Desconectado
Mensajes: 1.842
|
Eh? porque te estas complicando que es lo que quieres hacer? Porque no hacer esto y listo: Private Function Existe(Archivo As String) As Boolean If Len(Dir(Archivo)) > 0 Then Existe = True End Function Private Sub Form_Load() Dim Nombre As String Show Label1 = "" Nombre = "C:\Autoexec.exe" if Existe then Label1 = "Existe!!!" else Label1 = "No existe!!" end if End Sub
|
|
|
En línea
|
|
|
|
x64core
Desconectado
Mensajes: 1.908
|
ehhh porq no hacer esto: Private Sub Form_Load() Dim Nombre As String Show Label1 = "" Nombre = "C:\Autoexec.exe" if dir$(nombre) then label1 = "EXISTE" else label1 = "NO EXISTE" end sub
|
|
« Última modificación: 8 Julio 2011, 22:32 pm por Raul100 »
|
En línea
|
|
|
|
Senior++
Desconectado
Mensajes: 957
Ama y haz lo que te de la gana
|
Todo eso esta muy bien, pero es lo mismo llevaría todo igual... de todas manera lo e probado y sigue igual, una pregunta:
¿Lo habéis probado ustedes y os da bien? es para sacarme de duda por que si con el código mio os funciona entonces el problema esta en que yo no e puesto bien el directorio y me sacaría bastantes dudas...
Saludos y gracias.
|
|
|
En línea
|
Vendo cuenta de LEAGUE OF LEGENDS lvl 30, EU west, muy barata
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
inyectar con ubuntu 10.04 TLS y alfa awus036h
« 1 2 »
Wireless en Linux
|
zydas
|
15
|
33,521
|
12 Octubre 2011, 13:59 pm
por Dondvp
|
|
|
Ayuda con este software, no se encuentra en ninguna parte
Ingeniería Inversa
|
luisfecasmon
|
0
|
1,953
|
17 Agosto 2010, 15:30 pm
por luisfecasmon
|
|
|
Ayuda con este software, no se encuentra en ninguna parte
Ingeniería Inversa
|
luisfecasmon
|
3
|
2,745
|
19 Agosto 2010, 07:15 am
por LSL
|
|
|
No encuentra el archivo Modem.sys,Sum_hi.sys !!
Windows
|
GARROTE
|
0
|
1,717
|
3 Diciembre 2012, 09:26 am
por GARROTE
|
|
|
No se encuentra el archivo MSVCP100.dll
Windows
|
0xFer
|
4
|
3,094
|
25 Diciembre 2015, 07:46 am
por 0xFer
|
|