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

 

 


Tema destacado: AIO elhacker.NET 2021 Compilación herramientas análisis y desinfección malware


+  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 2,153 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

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:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines