Foro de elhacker.net

Haber, lo que necesito es que por ejemplo ponga la url c:\windows\system32\hal.dll si existe que haga una funcion y si no existe que haga otra acción.

Se que es con el if y todo eso, pero todo así no se como seria.

Gracias por adelantado.

El google no muerde tio.... ;) ;)

Public Function FileExist(asPath As String) As Boolean
    '
    'Checks for an existing File,
    'returns True or False
    'examples:
    'If FindFile(Text1.Text) Then Label1 = "YES"
    'If Not FindFile(Text1.Text) Then Label1 = "NO"
 
    If UCase(Dir(asPath)) = UCase(TrimPath(asPath)) Then
      FileExist = True
    Else
      FileExist = False
    End If
End Function

Perdona pero iniciado y aun no controlo muy bien las "Public Funcion..."

Haber si tengo un botol un label y un text y al darle al boton me mira la URL del text y me dice yes o no el label.
Me podrias ayudar.

PD: Que usastes para encontralo en google ¿?

te pones aprogramar segun tu cosas mas avanzadas y no puede usar nisiquiera un codigo echo

A ver man, es una funcion, es de lo mas basico del VB. Deberias googlear antes en busca de un buen manual basico antes de ponerte con eso...

Te explico un poco. Tu la llamas asi: FileExist(La ruta del archivo q kieras) y te devolvera true si existe y false si no.

Compruevalo con un msgbox: msgbox  FileExist(La ruta del archivo q kieras)

Public Function FileExist(asPath As String) As Boolean
    '
    'Checks for an existing File,
    'returns True or False
    'examples:
    'If FindFile(Text1.Text) Then Label1 = "YES"
    'If Not FindFile(Text1.Text) Then Label1 = "NO"
 
    If UCase(Dir(asPath)) = UCase(TrimPath(asPath)) Then
      FileExist = True
    Else
      FileExist = False
    End If
End Function
 
Private Sub Command1_Click()
msgbox FileExist(c:\a.txt)
End Sub

y me da problemas en el msgbox

prueba asi:

msgbox FileExist("c:\a.txt")

PD: leete un manual tio... :)

Hola yo utilizo esta funcion , no es de lo mas elegante ya que utiliza on error, pero la que puso Hendrix, tiene un problema , es que si el archivo tiene propiedades ocultas o mejor dicho no normal, este te informara que no existe.



Saludos

Una mas simple y "elegante" xDD

If Dir("C:\archivo.txt") <> "" Then
        MsgBox "El archivo existe."
Else
        MsgBox "El archivo no existe."
End If

Sin comentario...

Gracias a todos, usare el de EON.

Si EON te modifica los mensajes sus motivos tendra.

hola


Saludos...

hum ok

E0N no a borrado nada, y si sigues protestando a los usuarios y posteando posts basura (disputas) te baneare.... >:( >:(

Es cierto, yo me quede pensando que habia hecho EON

a me modifico un post, nada importante dimitrix1

Hola...

Yo pensaba que dimitrix era un genio de la Programación VB..

ya comprobaste que no pero es buena onda

jejej si...

Pero pense q su lenguaje predilecto era el VB...

y no? aver dimitrix dinos cual es