| 
	
		|  Autor | Tema: Saber si un archivo existe o no  (Leído 11,839 veces) |  
	| 
			| 
					
						| viejolucho 
								
								 Desconectado 
								Mensajes: 4
								
								
								
								
								
								   | 
 
Hola a todos nesecito ayuda: El problema es que nesecito un codigo fuente para saber si un archivo "como por ejemplo una foto" existe en determinada carpeta por favor ayudenme estoy en problemas. de antemano saludos y muchas gracias  
 
 |  
						| 
								|  |  
								|  |  En línea | 
 
 |  |  |  | 
			| 
					
						| FaiF (A¥åHøRå) | 
 
Determinar si un fichero existe o no: Escriba el siguiente código: (una de tanta maneras aparte de Dir$()) Private Sub Form_Load()On Error GoTo Fallo
 x = GetAttr("C:\Autoexec.bat")
 MsgBox "El fichero existe."
 Exit Sub
 Fallo:
 MsgBox "El fichero no existe."
 End Sub
Fuente: elhacker.net Salu2  
 
 |  
						| 
								|  |  
								|  |  En línea | 
 
 |  |  |  | 
			| 
					
						| elmaro 
								 
								
								 Desconectado 
								Mensajes: 301
								
								 
								Unas simples palabras...
								
								
								
								
								
								   | 
 
puedes utilizar esta funcion Private Function Existe(ByVal file As String) As BooleanOn Local Error Resume Next
 Existe = Len(Dir$(file))
 End Function
 
i para ver si existe un archivo pones asi: if existe("c:\archivo.bmp") then ' si el archivo existe...lo que sea
 end if
 
o puedes poner asi: if not existe("c:\archivo.bmp") then ' si el archivo no existe...lo que sea
 end if
 
espero te sirva saludos El MaRo! |  
						| 
								|  |  
								|  |  En línea | 
 
 |  |  |  | 
			| 
					
						| Robokop 
								       
								
								 Desconectado 
								Mensajes: 1.660
								
								   | 
 
Otro metodo :  If Dir("C:\Documents and Settings\LOL\texto.txt") <> "" ThenMsgBox "El archivo existe."
 Else
 MsgBox "El archivo no existe."
 End If
 
 |  
						| 
								|  |  
								|  |  En línea | 
 
 |  |  |  | 
			| 
					
						| ジ 
								 
								
								 Desconectado 
								Mensajes: 944
								
								 
								en la cuna !!
								
								
								
								
								
								     | 
 
 Publicado por: RobokopInsertar Cita
 Otro metodo :
 Código:
 If Dir("C:\Documents and Settings\LOL\texto.txt") <> "" Then
 MsgBox "El archivo existe."
 Else
 MsgBox "El archivo no existe."
 End If
 SI, ese mismo codigo lo puse hace dias, de mi gusano x cierto.Si, hasta en los msgbox pone lo mismo   |  
						| 
								|  |  
								|  |  En línea | 
 
 el tiempo pondrá a cada uno en su lugar   |  |  |  | 
			| 
					
						| Robokop 
								       
								
								 Desconectado 
								Mensajes: 1.660
								
								   | 
 
SI, ese mismo codigo lo puse hace dias, de mi gusano x cierto. Acaso sera porque yo te ayude con tu gusano por messenger ???  LOL Hasta yo te dije como ponerle  el webdownloader .... Pd : para evitar reclamos una captura de pantalla dice mas que mil palabras http://img411.imageshack.us/img411/5112/capturajj3.jpg entre mis archivos de codigos pequeños que tengo guardados miremos la fecha del mio y la fecha de tu codigo y fijate cual fue primero , ese lo hice hace 1 año pero formate por eso esta en julio    no me molesta que usen los codigos para eso los doy pero me calienta que vengan a decirme ese codigo es mio.. ja |  
						| 
								|  |  
								| « Última modificación:  8 Agosto 2006, 19:40 pm por Robokop » |  En línea | 
 
 |  |  |  | 
			| 
					
						| ジ 
								 
								
								 Desconectado 
								Mensajes: 944
								
								 
								en la cuna !!
								
								
								
								
								
								     | 
 
si,cierto lol, con una api,  esta : Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long     'api necesaria para el descargar algo de internet y ese codigo que pusiste tú ni me ayudaste ni nada, asi que no inbentes y sino demuestralo      |  
						| 
								|  |  
								|  |  En línea | 
 
 el tiempo pondrá a cada uno en su lugar   |  |  |  | 
			| 
					
						| ジ 
								 
								
								 Desconectado 
								Mensajes: 944
								
								 
								en la cuna !!
								
								
								
								
								
								     | 
 
Hasta yo te dije como ponerle  el webdownloader ....  si un codigo de kizar que esta en el foro y en google como unas 3000000 veces    , andale sigue diciendo boberias que para todas sabes que tengo la respuesta |  
						| 
								|  |  
								|  |  En línea | 
 
 el tiempo pondrá a cada uno en su lugar   |  |  |  | 
			| 
					
						| WarGhost 
								I love basket  Desconectado 
								Mensajes: 1.070
								
								     | 
 
chacho los códigos no son de nadie lo que si que pueden tener un by son funciones, módulos etc... pero códigos vb¿? desde cuando
 que mal rollo....
 |  
						| 
								|  |  
								|  |  En línea | 
 
 |  |  |  | 
			| 
					
						| ジ 
								 
								
								 Desconectado 
								Mensajes: 944
								
								 
								en la cuna !!
								
								
								
								
								
								     | 
 
que si que si man que es tuyo, lo que tu digas si eres feliz es tuyo     |  
						| 
								|  |  
								|  |  En línea | 
 
 el tiempo pondrá a cada uno en su lugar   |  |  |  |  |  
 
	
 
 
				
					
						| Mensajes similares |  
						|  | Asunto | Iniciado por | Respuestas | Vistas | Último mensaje |  
						|   |   | (Batch) Si existe archivo entonces.. Scripting
 | Enemy | 4 | 20,560 |  4 Mayo 2013, 01:53 am por Enemy
 |  
						|   |   | Borrar archivo o saltarlo si existe Programación Visual Basic
 | rapbyone | 4 | 2,445 |  7 Enero 2014, 09:29 am por Mad Antrax
 |  
						|   |   | Saber si existe registro en SQLITE con C/C++ Programación C/C++
 | harry_the_blogger | 0 | 2,504 |  15 Noviembre 2014, 02:28 am por harry_the_blogger
 |  
						|   |   | Saber si existe conexión a Internet Programación Visual Basic
 | YAcosta | 1 | 2,320 |  18 Noviembre 2018, 18:32 pm por YAcosta
 |  
						|   |   | mkisofs dice que el archivo no existe, pero si existe. Software
 | huchoko | 1 | 2,845 |  22 Febrero 2019, 13:27 pm por okik
 |    |