elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  ¿Como saber si un determinado arhivo existe?		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: ¿Como saber si un determinado arhivo existe?  (Leído 3,074 veces)
TheGhost(Z)

Desconectado Desconectado

Mensajes: 230



Ver Perfil
¿Como saber si un determinado arhivo existe?
« en: 30 Marzo 2006, 16:39 pm »
Hola, favor si me podrian decir como puedo hacer para saber si un archivo existe en un determinado directorio.

estuve  probando con esta:
Código:
Dim Ruta
Ruta= App.Patch & "C:fri.txt"

If Dir(Ruta, vbArchive) = "" Then
msgbox "no existe"
else
msgbox "si existe"
End IF


Estuve testeando hace meses por aqui que habia una sentencia mas o menos que era como: File.existe o algo parecido.

Favor si me podrian decir si..
En línea
xXnewbieXx

Desconectado Desconectado

Mensajes: 68



Ver Perfil
Re: ¿Como saber si un determinado arhivo existe?
« Respuesta #1 en: 30 Marzo 2006, 16:50 pm »
Spero q esot t ayude ;)

Código:
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Const PROCESS_QUERY_INFORMATION = &H400

Dim DirArchivo As String

Private Sub Form_Load()
DirArchivo = "C:\texto.txt"
Comprobar (DirArchivo) ' comprobamos q exista ese archivo
End Sub

Public Sub Comprobar(Directorio As String)
On Error Resume Next ' en caso d error continúa
Open Directorio For Input As #1

If Err Then ' error x tanto no existe
MsgBox "El archivo no existe"
Else
MsgBox "El archivo existe"
End If
Close #1

End Sub

Saludos! :)
En línea
Hardware: Lo que golpeas. Software: La causa

Error 943 - El sistema esta funcionando demasiado bien, se caerá para seguir con la rutina...
edge master

Desconectado Desconectado

Mensajes: 54



Ver Perfil
Re: ¿Como saber si un determinado arhivo existe?
« Respuesta #2 en: 30 Marzo 2006, 18:48 pm »
Ese q probastes esta bien solo q si queres comprobar si "C:\fri.txt" existes tenes q cambiar:
Código:
Ruta= App.Patch & "C:fri.txt"
por
Código:
Ruta = "C:\fri.txt""

P.D App.Patch no existe lo mas parecido es app.path
En línea
TheGhost(Z)

Desconectado Desconectado

Mensajes: 230



Ver Perfil
Re: ¿Como saber si un determinado arhivo existe?
« Respuesta #3 en: 31 Marzo 2006, 17:37 pm »
ok. gracias.. a todos..
En línea
LaN

Desconectado Desconectado

Mensajes: 62


Ver Perfil
Re: ¿Como saber si un determinado arhivo existe?
« Respuesta #4 en: 31 Marzo 2006, 17:54 pm »
buff q complicaciones. Hazlo así:
Código:
archivo = "C:\existe.txt"
existe = Len(Dir$(archivo))
If existe Then
MsgBox "El archivo existe"
Else
MsgBox "El archivo no existe"
End If
En línea
.:CorTeX:.

Desconectado Desconectado

Mensajes: 135


The Gimp User


Ver Perfil WWW
Re: ¿Como saber si un determinado arhivo existe?
« Respuesta #5 en: 31 Marzo 2006, 22:23 pm »
Mira este:

Código:
Private Sub Form_Load()
	On error goto error
	GetAttr("C:\Archivo.txt")
	MsgBox("El archivo existe")
error:
	MsgBox("El archivo no existe")
End Sub
En línea
Orgullosamente Colombiano
Kizar


Desconectado Desconectado

Mensajes: 1.325


kizar_net


Ver Perfil
Re: ¿Como saber si un determinado arhivo existe?
« Respuesta #6 en: 1 Abril 2006, 16:13 pm »
Yo lo ago de estas 2 maneras:

1.
Código:
Public Function ArchEx(Ruta As String) As Boolean
On Error GoTo error
GetAttr (Ruta)
ArchEx = True
Exit Function
error:
ArchEx = False
End Function


Para llamar a la funcion asi:
Código:
If ArchEx("C:\boot.ini") = True Then
 ' Lo que quieras tu ;)
End If

2.
Con la api.
Código:
Private Declare Function SHFileExists Lib "shell32" Alias "#45" (ByVal szPath As String) As Long
Private Sub Form_Load()
    If SHFileExists("C:\Dance.MID") = 0 Then
    MsgBox "NO EXISTE"
    Else
    MsgBox "EXISTE"
    End If
End Sub

LA API SOLO VA EN WIN 9x

Salu2
En línea
:laugh: Tracker privado Nova+
NYlOn


Desconectado Desconectado

Mensajes: 842


OOOOHHHHHH, TARAGÜIIII xDDDDDD


Ver Perfil WWW
Re: ¿Como saber si un determinado arhivo existe?
« Respuesta #7 en: 1 Abril 2006, 17:30 pm »
Código:
    If Dir("C:\Tuarchivo.jpg") <> "" Then
        MsgBox "El archivo existe."
    Else
        MsgBox "El archivo no existe."
    End If
En línea
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Como saber si existe un registro en Windows?
.NET (C#, VB.NET, ASP) 		_CrisiS_ 3 6,240 Último mensaje 23 Diciembre 2010, 18:25 pm
por SnakingMax
[Solucionado] ¿Como saber la posición de determinado registro VB.NET + MySql?
.NET (C#, VB.NET, ASP) 		estebanvr 5 12,593 Último mensaje 18 Abril 2011, 02:28 am
por ChavalChavito
como escribir en un arhivo TXT seguido
Programación Visual Basic 		x64core 6 3,989 Último mensaje 10 Junio 2011, 21:10 pm
por ignorantev1.1
Como conocer que libreria utiliza un software en un momento determinado
Ingeniería Inversa 		Skeletron 8 4,222 Último mensaje 25 Junio 2013, 01:52 am
por Skeletron
AYUDA! manipulación de arhivo.
Programación C/C++ 		cv0023 2 1,810 Último mensaje 3 Noviembre 2015, 20:22 pm
por cv0023
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines