Verificar directorio de un archivo

[dimitrix]

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.

[Hendrix]

El google no muerde tio....

Código (vb) [Seleccionar] Expandir

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

[dimitrix]

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 ¿?

[Red Mx]

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)

[dimitrix]

Código (vb) [Seleccionar] Expandir

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

[Hendrix]

prueba asi:

Código (vb) [Seleccionar] Expandir

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

PD: leete un manual tio...

[LeandroA]

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.

Código [Seleccionar] Expandir

Public Function FileExist(File As String) As Boolean
On Error GoTo Fallo
Dim ret As Long
ret = GetAttr(File)
FileExist = True
Exit Function
Fallo:
End Function

Private Sub Command1_Click()
MsgBox FileExist("C:\archivo.txt")
End Sub

Saludos

[~~]

Una mas simple y "elegante" xDD

Código (vb) [Seleccionar] Expandir

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

[dimitrix]

que desepcion crei q dimitrix era de los chingones,

ya vi que postear mucho no significa nada,

oiste eso -Freeze-

Sin comentario...

Gracias a todos, usare el de EON.